t/WebService-FOAAS.t

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