[webservice-foaas.git] / t / WebService-FOAAS.t

#!/usr/bin/perl
use 5.014000;
use strict;
use warnings;

use Test::RequiresInternet 'foaas.com' => 443;
use Test::More tests => 3;
BEGIN { use_ok('WebService::FOAAS') };

my $res;

$res = foaas_cool 'MGV';
is $res, 'Cool story, bro. - MGV', 'cool';

$res = foaas_dosomething 'Do', 'thing', 'MGV', {shoutcloud => 1};
is $res, 'DO THE FUCKING THING! - MGV', 'dosomething + shoutcloud';
Commit	Line	Data
943f1904 MG	1	#!/usr/bin/perl
	2	use 5.014000;
	3	use strict;
	4	use warnings;
	5
	6	use Test::RequiresInternet 'foaas.com' => 443;
	7	use Test::More tests => 3;
	8	BEGIN { use_ok('WebService::FOAAS') };
	9
	10	my $res;
	11
	12	$res = foaas_cool 'MGV';
	13	is $res, 'Cool story, bro. - MGV', 'cool';
	14
	15	$res = foaas_dosomething 'Do', 'thing', 'MGV', {shoutcloud => 1};
	16	is $res, 'DO THE FUCKING THING! - MGV', 'dosomething + shoutcloud';