X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FGruntmaster-Data.t;h=b3b8672a44ee5d740b03dd97333b8907a005924e;hb=d33e87f2633f4da6fd9569f6f7db4b1f54c478c2;hp=3c97f067567fa9729d634a3474ca13fde2038721;hpb=f20668d742eae08b6e1d24048572bdeef0eb51d3;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';