1#!/usr/bin/env perl 2require 5.008; 3use warnings; 4use strict; 5 6chdir("closedfile") or die "chdir testdir failed: $!\n"; 7 8require TestDriver; 9 10my $td = new TestDriver('closed_file_input_source'); 11 12$td->runtest("closed file input source", 13 {$td->COMMAND => "closed_file_input_source"}, 14 {$td->FILE => "output", $td->EXIT_STATUS => 0}, 15 $td->NORMALIZE_NEWLINES); 16$td->report(1); 17