--- a/tests/objpict_test.pl	Tue Jun 28 21:16:09 2011 +0100
+++ b/tests/objpict_test.pl	Tue Jun 28 22:23:00 2011 +0100
@@ -17,15 +17,15 @@
 use File::Temp qw/ tempdir /;
 my $tmpdir = tempdir( CLEANUP => 0 );
 
-my $object = "data/objects/mybox.rad";
+my $objects = "data/objects/mybox.rad data/objects/anotherbox.rad";
 my $material = "data/objects/objects.mat";
 
 # Options are arrays of [STDIN, command-line options].
 # Please include the pipe symbol as part of STDIN.
 # Put a leading space in front of STDIN to line up the output.
 my @options = (
-		["", "$material $object"],
-		[" cat $material $object |", ""],
+		["", "$material $objects"],
+		[" cat $material $objects |", ""],
 );
 
 # Run old CSH and new Perl script with different options,