File: testConfigReader

package info (click to toggle)
gnump3d 2.9.3-1sarge3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,420 kB
  • ctags: 366
  • sloc: perl: 10,649; sh: 188; makefile: 147
file content (31 lines) | stat: -rwxr-xr-x 513 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/usr/bin/perl 
# Test the configuration file parser.

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

#
# Read in a pre-created configuration file.
my $file = "testConfigReader.data";
&readConfig( $file );

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


#
#  Ensure a missing key isn't found.
#
my %HASH = &getHash();
if ( defined( $HASH{"non-present-key"} ) )
{
    exit;
}


exit 0;