15 print "script: $script\n"; |
15 print "script: $script\n"; |
16 |
16 |
17 use File::Temp qw/ tempdir /; |
17 use File::Temp qw/ tempdir /; |
18 my $tmpdir = tempdir( CLEANUP => 0 ); |
18 my $tmpdir = tempdir( CLEANUP => 0 ); |
19 |
19 |
20 my $object = "data/objects/mybox.rad"; |
20 my $objects = "data/objects/mybox.rad data/objects/anotherbox.rad"; |
21 my $material = "data/objects/objects.mat"; |
21 my $material = "data/objects/objects.mat"; |
22 |
22 |
23 # Options are arrays of [STDIN, command-line options]. |
23 # Options are arrays of [STDIN, command-line options]. |
24 # Please include the pipe symbol as part of STDIN. |
24 # Please include the pipe symbol as part of STDIN. |
25 # Put a leading space in front of STDIN to line up the output. |
25 # Put a leading space in front of STDIN to line up the output. |
26 my @options = ( |
26 my @options = ( |
27 ["", "$material $object"], |
27 ["", "$material $objects"], |
28 [" cat $material $object |", ""], |
28 [" cat $material $objects |", ""], |
29 ); |
29 ); |
30 |
30 |
31 # Run old CSH and new Perl script with different options, |
31 # Run old CSH and new Perl script with different options, |
32 # compare the resulting images. |
32 # compare the resulting images. |
33 my $total = 0; |
33 my $total = 0; |