#!/usr/bin/perl 
# Test the environmental variable parsing

use strict;                # Standard safety checks.
use gnump3d::config;       # My configuration file reading module.

#
# Read in a pre-created configuration file.
my $file = "testEnvReader.data";

&readConfig( $file );
&configUsesEnvironment( 1 );

#
#  Set the value to be something other than what is in the configuration
# file.
#
$ENV{"one"} = "modified";

# 
#  Ensure the file contains 'one = one'.
#
if ( &getConfig( "one" ) ne "modified" )
{
    exit 1;
}


exit 0;
