]>
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'; |