view release on metacpan or  search on metacpan

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

            secret => 'mysecret',
            server => 'myserver',
        );
        ok( $bbb );
        is( $bbb->{server}, 'myserver' );
        is( $bbb->{secret}, 'mysecret' );
    };

    it "Empty required params" => sub {
        my $bbb;
        eval { $bbb = API::BigBlueButton->new };
        ok( $@ );

        eval { $bbb = API::BigBlueButton->new( secret => 'mysecret' ) };
        ok( $@ );
        like( $@, qr/Parameter server required/ );

        eval { $bbb = API::BigBlueButton->new( server => 'myserver' ) };
        ok( $@ );
        like( $@, qr/Parameter secret required/ );
    };
};

describe "abstract_request" => sub {

    my $checksum = '1233dfgdfg';
    my $bbb;

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

            request  => 'create',
            checksum => $checksum,
            $key     => $val,
        } );

        ok( $res );
        like( $url, qr/myserver.+create\?$key=$val&checksum=$checksum/ );
    };

    it "Empty param request" => sub {
        eval { $bbb->abstract_request( { checksum => $checksum } ) };

        ok ( $@ );
        like( $@, qr/Parameter request required/ );
    };
};

runtests unless caller;

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

            ->returns( sub { $url = $_[1]; return 1; } )->any_number;
    };

    describe "create" => sub {
        it "Normal run" => sub {
            ok( $bbb->create( meetingID => 'mymeeting' ) );
            like( $url, qr/create\?meetingID=mymeeting/ );
        };

        it "Empty meetingID" => sub {
            eval { $bbb->create };
            ok( $@ );
            like( $@, qr/Parameter meetingID required!/ );
        };
    };

    describe "join" => sub {
        it "Normal run" => sub {
            ok( $bbb->join(
                fullName  => 'myname',
                meetingID => 'mymeeting',