Test program rm-rf-no-file.t

• Program iterates over list of third-level subdirectories

• Wraps system() call around each instance of rm -rf

• Did system() call succeed (return 0)?

        for my $alt (@altered) {
            my $rv = system(qq|rm -rf $alt|);
            Test::More::is($rv >> 8, 0, "Able to rm -rf $alt");
        }