A More Complex Case: rm-rf-with-file.t (continued 1)

• Every third-level subdirectory starts life as 0775 and can hold a plain-text file.

        $ prove -v rm-rf-with-file.t 
        rm-rf-with-file.t .. 
        Perl version:       5.026000
        subdir name:        10237_base_with_file
        # Creating subdirs with a file in each
        ok 1 - created 1 subdirectory
        ok 2 - Directory /tmp/10237_base_with_file exists
        ok 3 - Created 8 subdirectories
        ok 4 - Directory /tmp/10237_base_with_file/foo_10237_0000 exists, starts life as 0775
        ok 5 - Able to create file /tmp/10237_base_with_file/foo_10237_0000/a
        ok 6 - Directory /tmp/10237_base_with_file/foo_10237_0100 exists, starts life as 0775
        ok 7 - Able to create file /tmp/10237_base_with_file/foo_10237_0100/a
        ok 8 - Directory /tmp/10237_base_with_file/foo_10237_0200 exists, starts life as 0775
        ok 9 - Able to create file /tmp/10237_base_with_file/foo_10237_0200/a
        ok 10 - Directory /tmp/10237_base_with_file/foo_10237_0300 exists, starts life as 0775
        ok 11 - Able to create file /tmp/10237_base_with_file/foo_10237_0300/a
        ok 12 - Directory /tmp/10237_base_with_file/foo_10237_0400 exists, starts life as 0775
        ok 13 - Able to create file /tmp/10237_base_with_file/foo_10237_0400/a
        ok 14 - Directory /tmp/10237_base_with_file/foo_10237_0500 exists, starts life as 0775
        ok 15 - Able to create file /tmp/10237_base_with_file/foo_10237_0500/a
        ok 16 - Directory /tmp/10237_base_with_file/foo_10237_0600 exists, starts life as 0775
        ok 17 - Able to create file /tmp/10237_base_with_file/foo_10237_0600/a
        ok 18 - Directory /tmp/10237_base_with_file/foo_10237_0700 exists, starts life as 0775
        ok 19 - Able to create file /tmp/10237_base_with_file/foo_10237_0700/a