Bb-Collaborate-Ultra

 view release on metacpan or  search on metacpan

t/01-connect.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 16;
use Test::Fatal;

use lib '.';
use t::Ultra;
use Date::Parse;
use Scalar::Util qw<looks_like_number>;
use Bb::Collaborate::Ultra;
use Bb::Collaborate::Ultra::Session;

SKIP: {
      diag( "Testing Bb::Collaborate::Ultra $Bb::Collaborate::Ultra::VERSION, Perl $], $^X" );

t/context.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 3;
use Test::Fatal;
use Date::Parse;
use lib '.';
use t::Ultra;
use Bb::Collaborate::Ultra::Context;

SKIP: {
    my %t = t::Ultra->test_connection;
    my $connection = $t{connection};
    skip $t{skip} || 'skipping live tests', 3
	unless $connection;

t/objects.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 35;
use Test::Fatal;
use JSON;
# ----------------------------------------------------------------
use Bb::Collaborate::Ultra::Session;

ok(Bb::Collaborate::Ultra::Session->can('startTime'), "accessor introspection");

my $types = Bb::Collaborate::Ultra::Session->_property_types;

ok exists $types->{startTime}, "property_types introspection"
    or diag explain {'session.types' => $types};

t/recording.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 6;
use Test::Fatal;
use Date::Parse;
use lib '.';
use t::Ultra;
use Bb::Collaborate::Ultra::Recording;

SKIP: {
    my %t = t::Ultra->test_connection;
    my $connection = $t{connection};
    skip $t{skip} || 'skipping live tests', 6
	unless $connection;

t/session.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 21;
use Test::Fatal;
use Date::Parse;
use lib '.';
use t::Ultra;

SKIP: {
    my %t = t::Ultra->test_connection;
    my $connection = $t{connection};
    skip $t{skip} || 'skipping live tests', 21
	unless $connection;

t/users.t  view on Meta::CPAN

use warnings; use strict;
use Test::More tests => 9;
use Test::Fatal;
use Date::Parse;
use lib '.';
use t::Ultra;

 SKIP: {
     my %t = t::Ultra->test_connection;
     my $connection = $t{connection};
     skip $t{skip} || 'skipping live tests', 9
	 unless $connection;