#!/usr/bin/perl

# Copyright (C) 2005  Joshua Hoblitt
#
# $Id: 02_sdrs_example.t,v 1.1.1.1 2005-03-01 03:40:20 jhoblitt Exp $

use strict;
use warnings FATAL => qw( all );

use lib qw( ./lib );

use Test::More tests => 1;
use PS::IPP::Metadata::Config;

my $example = do { local $/; <DATA> };

my $config_parser = PS::IPP::Metadata::Config->new;
my $pt = $config_parser->parse( $example );

ok( defined( $pt ), "valid parase tree");

__DATA__
Double     F64     1.23456789      # This is a comment
Float    F32 0.98765#This is a comment too
String  STR This is the string that forms the value #comment
                                                                                                                                          
 # This is a comment line and is to be ignored
boolean     BOOL    T # The value of `boolean' is `true'
                                                                                                                                          
@primes U8  2,3 5 7,11,13 17 #   These are prime numbers
                                                                                                                                          
comment * The rest of this line is ignored, but `comment' is set to be non-unique
comment STR This
comment STR     is
comment STR       a
comment STR        non-unique
comment STR                  key
Float F64 1.23456 # This generates a warning, and, if `overwrite' is `false', is ignored
