X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FGruntmaster-Data.t;h=b3b8672a44ee5d740b03dd97333b8907a005924e;hb=23aa7eca080d8c8a6785b28a5c64feff3849e9cf;hp=3c97f067567fa9729d634a3474ca13fde2038721;hpb=52172a1a697be94c99123f265ebcd64871d6379e;p=gruntmaster-data.git diff --git a/t/Gruntmaster-Data.t b/t/Gruntmaster-Data.t index 3c97f06..b3b8672 100644 --- a/t/Gruntmaster-Data.t +++ b/t/Gruntmaster-Data.t @@ -1,20 +1,6 @@ #!/usr/bin/perl -w use v5.14; -use Test::More tests => 6; +use Test::More tests => 1; BEGIN { use_ok('Gruntmaster::Data') }; - -my $db = Gruntmaster::Data->connect('dbi:SQLite:dbname=:memory:'); -$db->deploy; - -$db->users->create({id => 'MGV'}); -$db->contests->create({id => 'fc', start => 10, stop => 20, name => 'Finished contest', owner => 'MGV'}); -$db->contests->create({id => 'rc', start => 20, stop => 30, name => 'Running contest', owner => 'MGV'}); -$db->contests->create({id => 'pc', start => 30, stop => 40, name => 'Pending contest', owner => 'MGV'}); - -ok $db->contest('pc')->is_pending(25), 'is_pending'; -ok !$db->contest('rc')->is_pending(25), '!is_pending'; -ok $db->contest('fc')->is_finished(25), 'is_finished'; -ok !$db->contest('rc')->is_finished(25), '!is_finished'; -ok $db->contest('rc')->is_running(25), 'is_running';