#!/usr/bin/perl -w
# Test that commands can be run from theme template files.
use gnump3d::files;


my $input = 'testThemeExecution.data';

my @lines = &readFileWithExpansion( $input );

#
# Make sure the command has been executed.
#
foreach my $line ( @lines )
{
   if ( $line =~ /<--/ )
   {
	exit 1;
   }
}

exit 0;
