Index: /trunk/PS-IPP-Metadata-Config/t/08_strings.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/08_strings.t	(revision 9161)
+++ /trunk/PS-IPP-Metadata-Config/t/08_strings.t	(revision 9161)
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2006  Joshua Hoblitt
+#
+# $Id: 08_strings.t,v 1.1 2006-10-04 01:24:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 2;
+use PS::IPP::Metadata::Config;
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+my $example =<<END;
+mystr   MULTI
+mystr   STR     somevalue
+mystr   STR     somevaluebeforeacomment             # some comment
+END
+
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "strs parsed");
+
+    my $tree = [
+        {
+            name    => 'mystr',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'somevalue',
+        },
+        {
+            name    => 'mystr',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'somevaluebeforeacomment',
+            comment => 'some comment',
+        },
+    ];
+
+    is_deeply( $config, $tree, "str structure" );
+}