Create a basic test which verifies we can't delete the derivation of aggregate jobs
This commit is contained in:
parent
be46f02164
commit
e0921eba0a
20
t/evaluator/evaluate-constituents-gc.t
Normal file
20
t/evaluator/evaluate-constituents-gc.t
Normal file
|
@ -0,0 +1,20 @@
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use Setup;
|
||||||
|
use Test2::V0;
|
||||||
|
|
||||||
|
my $ctx = test_context();
|
||||||
|
|
||||||
|
my $builds = $ctx->makeAndEvaluateJobset(
|
||||||
|
expression => 'constituents.nix',
|
||||||
|
);
|
||||||
|
|
||||||
|
my $constituentA = $builds->{"constituentA"};
|
||||||
|
my $directAggregate = $builds->{"direct_aggregate"};
|
||||||
|
my $indirectAggregate = $builds->{"indirect_aggregate"};
|
||||||
|
|
||||||
|
is(system('nix-store', '--delete', $constituentA->drvpath), 256, "Deleting a constituent derivation fails");
|
||||||
|
is(system('nix-store', '--delete', $directAggregate->drvpath), 256, "Deleting the direct aggregate derivation fails");
|
||||||
|
is(system('nix-store', '--delete', $indirectAggregate->drvpath), 256, "Deleting the indirect aggregate derivation fails");
|
||||||
|
|
||||||
|
done_testing;
|
Loading…
Reference in a new issue