Froody

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    'Apache::Constants' => 0,
    'Logger' => 0,	 # a Fotango-specific Log4perl wrapper
    'Test::Logger' => 0, # provided by Logger
    'PPI' => 0,
    'File::Find::Rule' => 0,
    'JavaScript::Standalone' => 0,
  },
  build_requires => {
    'Test::More' => 0,
    'Test::Exception' => 0,
    'Test::Differences' => 0,
    'Test::XML' => 0,
  },
  script_files => [qw(
    bin/froody
    bin/froodydoc
    bin/find_froody_exceptions
  )],
  create_readme => 1,
  create_makefile_pl => 'traditional',
  recursive_test_files => 1,

Makefile.PL  view on Meta::CPAN

                           'LWP::Simple' => 0,
                           'Module::Pluggable' => 0,
                           'File::Find::Rule' => 0,
                           'URI' => 0,
                           'Test::Exception' => 0,
                           'YAML::Syck' => 0,
                           'Template' => 0,
                           'HTTP::Request::Common' => 0,
                           'HTTP::Date' => 0,
                           'Test::More' => 0,
                           'Test::Differences' => 0,
                           'Params::Validate' => 0,
                           'LWP::UserAgent' => 0,
                           'XML::LibXML' => 0,
                           'UNIVERSAL::require' => 0
                         }
        )
;

t/api.t  view on Meta::CPAN

use lib 't/lib';

use Data::Dumper;

# colourising the output if we want to
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

use Test::More tests => 49;
use Test::Exception;
use Test::Differences;

# this is where we keep our modules
use Froody::Repository;
use Test::Logger;

use Scalar::Util qw(blessed);

# load our test API
use_ok ('Testproject::API');

t/froodydoc_pod_js.t  view on Meta::CPAN

#!/usr/bin/perl -w

#########################################################################
# This tests loads an xml based API (Testobject::API) and makes sure that 
# the right things are set up in the repository
#########################################################################

use strict;
use warnings;
use Test::More;
use Test::Differences;
use FindBin qw/$Bin/;
use File::Spec::Functions 'catfile';

eval { require JavaScript::Standalone };
plan skip_all => "froodydoc.js needs JavaScript::Standalone" if $@; 

plan tests => 1;

my $bin_script = catfile($Bin, qw/.. bin froodydoc.js/);

t/froodydoc_wiky_js.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings;
use Test::More;
use Test::Differences;
use FindBin qw/$Bin/;
use File::Spec::Functions 'catfile';

eval { require JavaScript::Standalone };
plan skip_all => "froodydoc.js needs JavaScript::Standalone" if $@; 

plan tests => 1;

my $bin_script = catfile($Bin, qw/.. bin froodydoc.js/);

t/high-level.t  view on Meta::CPAN

############################################################################
# high-level API test - start a server, use the api to upload a file or two,
# then make sure that those files exist and are what we expect.
############################################################################

use Test::More tests => 39;

use warnings;
use strict;
use Test::Exception;
use Test::Differences;
use lib 't/lib';
use DTest;
use LWP::Simple ();

use Froody::Server::Test;
use Froody::SimpleClient;

ok( Froody::Server::Test->start( "DTest::Test" ), 'got interface to client');
ok( my $real_client = Froody::Server::Test->client, 'got interface to client');

t/method.t  view on Meta::CPAN

# This does some fairly high level tests on Method and the associated XML
# parsing code.  We create some XML, feed it to Froody::API::XML and then
# check to see if the Method contains the right stuff
###########################################################################

use strict;
use warnings; 

use Test::More tests => 14;
use Test::Exception;
use Test::Differences;
use Froody::API::XML;
use Froody::Response::XML;
use Froody::Response::Terse;
use Data::Dumper;

use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

sub _spec {
    "<spec><methods>$_[0]</methods></spec>"

t/reflection.t  view on Meta::CPAN

# checks the reflection methods are loaded by the repository
#####################################################################

use strict;
use warnings;

use Test::More tests => 12;
use Test::Exception;

use Froody::Repository;
use Test::Differences;
use Froody::Response::Terse;

use lib 't/lib';

use_ok ('Other');
use Froody::Dispatch;

my $client = Froody::Dispatch->config({modules=>['Other']});
my $repo = $client->repository;

t/reflection2.t  view on Meta::CPAN

# other methods
###################################################################

use Test::More tests => 12;
use Test::Exception;

use strict;
use warnings;

use Data::Dumper;
use Test::Differences;
use Test::XML;
use Froody::Dispatch;

my $client = Froody::Dispatch->config();
ok my $rs = $client->call('froody.reflection.getMethods'), 
  "Dispatch lives without authorization.";

my $dispatch  = Froody::Dispatch->new;
$dispatch->repository( Froody::Repository->new() );
my $repo = $dispatch->repository;