Changeset 41012 for branches/eam_branches/ipp-20191011

Timestamp:

Oct 31, 2019, 10:34:58 AM (7 years ago)

Author:

eugene

Message:

neb-cull tests changed to address actual desired behavior: min_copies default is 2, neb-cull does not delete if only min_copies remains

File:

• branches/eam_branches/ipp-20191011/Nebulous/t/72_neb-cull.t (modified) (4 diffs)

branches/eam_branches/ipp-20191011/Nebulous/t/72_neb-cull.t

@@ -137 +137 @@
     my $line = $test->stderr;
 
-    is($neb->stat($key)->[6], 1, "correct # of instances");
-    is($? >> 8, 0, "exit code");
-    like($test->stdout, qr/^$/, "stdout");
-    like($test->stderr, qr/^$/, "stderr");
+    # the default min_copies is 2:
+    is($neb->stat($key)->[6], 2, "correct # of instances");
+    is($? >> 8, 255, "exit code");
+    like($test->stdout, qr/^$/, "stdout");
+    like($test->stderr, qr/not enough instances/, "stderr");
 }
 
@@ -179 +180 @@
     is($? >> 8, 255, "exit code");
     like($test->stdout, qr/^$/, "stdout");
-    like($test->stderr, qr/no instances/, "stderr");
+    like($test->stderr, qr/not enough instances/, "stderr");
 }
 
@@ -249 +250 @@
     );
     $neb->create($key);
-    my $statval1 = $neb->stat($key);
-    print "statval: @$statval1[6]\n";
 
     $test->run(args => "--min_copies 1 " . $key);
 
-    my $statval2 = $neb->stat($key);
-    print "statval: @$statval2[6]\n";
-
-    is($neb->stat($key)->[6], 1, "correct # of instances");
-
-    is($? >> 8, 0, "exit code");
+    is($neb->stat($key)->[6], 1, "correct # of instances");
+
+    is($? >> 8, 255, "exit code");
     like($test->stdout, qr/^$/, "stdout");
     like($test->stderr, qr/not enough instances/, "stderr");
@@ -278 +274 @@
     $test->run(args => "--min_copies 2 " . $key);
 
-    is($neb->stat($key)->[6], 1, "correct # of instances");
+    is($neb->stat($key)->[6], 2, "correct # of instances");
     is($? >> 8, 0, "exit code");
     like($test->stdout, qr/^$/, "stdout");