[haver-commits] r811 - in trunk: . perl/core/t

[haver]

Author: dylan
Date: 2005-06-24 21:58:52 -0400 (Fri, 24 Jun 2005)
New Revision: 811

Modified:
   trunk/
   trunk/perl/core/t/001_config.t
Log:
 [EMAIL PROTECTED]:  dylan | 2005-06-24 21:58:39 -0400
 added test case so that it detects bug in Haver::Config.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1167
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1168
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/core/t/001_config.t
===================================================================
--- trunk/perl/core/t/001_config.t      2005-06-25 01:58:50 UTC (rev 810)
+++ trunk/perl/core/t/001_config.t      2005-06-25 01:58:52 UTC (rev 811)
@@ -26,11 +26,17 @@
             monkeys => 2,
         },
         foo => 'bar',
+        baz => [ { name => "bob" } ],
     }
 );
+my $stuff = {
+       stuff => { monkeys => 2 },
+       foo => 'bar',
+    baz => [ { name => "bob" } ],
+};
 my $c = $ch->config;
 
-is_deeply($c, { stuff => { monkeys => 2 }, foo => 'bar' }, "Config with 
default values");
+is_deeply($c, $stuff, "Config with default values");
 ok(($ch->get('foo') eq 'bar'), "get()");
 $ch->set(bar => 'baz');
 ok(($ch->get('bar') eq 'baz'), "get()");
@@ -39,5 +45,6 @@
 
 my $ch2 = new Haver::Config;
 $ch2->load('foobar');
+$ch2->merge($stuff);
 
 is_deeply($ch->config, $ch2->config, "Saved properly");