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