view release on metacpan or  search on metacpan

t/001_compile.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More  tests => 3;

use FindBin qw/ $Bin /;
use lib "$Bin/../lib";

my @modules = qw/ API::BigBlueButton API::BigBlueButton::Requests API::BigBlueButton::Response /;

for my $module ( @modules ) {
    require_ok( $module );
}

done_testing;

t/002_bigbluebutton.t  view on Meta::CPAN

use strict;
use warnings;
use Test::Spec;

use FindBin qw/ $Bin /;
use lib "$Bin/../lib";

use_ok( 'API::BigBlueButton' );

describe "Constructor" => sub {

    it "Normal creation" => sub {
        my $bbb = API::BigBlueButton->new(
            secret => 'mysecret',
            server => 'myserver',
        );

t/003_bigbluebutton_requests.t  view on Meta::CPAN

use strict;
use warnings;
use Test::Spec;

use FindBin qw/ $Bin /;
use lib "$Bin/../lib";

use_ok( 'API::BigBlueButton' );

describe "Get version" => sub {
    it "Normal run" => sub {
        my $url;

        API::BigBlueButton->expects( 'request' )
            ->returns( sub { $url = $_[1]; return 1; } )->at_least(1);