Remove no longer useful is_private and is_in_archive methods

[gruntmaster-data.git] / t / Gruntmaster-Data.t

diff --git a/t/Gruntmaster-Data.t b/t/Gruntmaster-Data.t
index e9d20ac8cf7938b27d05fdd150a3c276eb0fd9c1..3c97f067567fa9729d634a3474ca13fde2038721 100644 (file)
--- a/t/Gruntmaster-Data.t
+++ b/t/Gruntmaster-Data.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use v5.14;
 
-use Test::More tests => 13;
+use Test::More tests => 6;
 
 BEGIN { use_ok('Gruntmaster::Data') };
 
@@ -18,21 +18,3 @@ 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';
-
-$db->problems->create({id => 'pb', name => 'Problem', generator => 'Undef', runner => 'File', judge => 'Absolute', level => 'beginner', value => 100, owner => 'MGV', statement => '...', testcnt => 1, timeout => 1, private => 0});
-
-ok !$db->problem('pb')->is_private(25), '!is_private';
-$db->problem('pb')->update({private => 1});
-ok $db->problem('pb')->is_private(25), 'is_private (explicit)';
-$db->problem('pb')->update({private => 0});
-
-$db->contest_problems->create({contest => 'pc', problem => 'pb'});
-ok $db->problem('pb')->is_private(25), 'is_private (implicit)';
-ok $db->problem('pb')->is_in_archive(25), 'is_in_archive';
-
-$db->contest_problems->create({contest => 'rc', problem => 'pb'});
-ok $db->problem('pb')->is_private(25), 'is_private (also implicit)';
-ok !$db->problem('pb')->is_in_archive(25), '!is_in_archive';
-
-$db->contest_problems->find('rc', 'pb')->delete;
-ok $db->problem('pb')->is_in_archive(25), 'is_in_archive (again)';