SF.net SVN: ledger-smb:[2573] trunk

[..hidden..]

Revision: 2573
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2573&view=rev
Author:   einhverfr
Date:     2009-04-24 04:56:51 +0000 (Fri, 24 Apr 2009)

Log Message:
-----------
removing erroneous beginning of a function

Modified Paths:
--------------
    trunk/bin/ir.pl
    trunk/t/42-dbobject.t

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2009-04-22 05:19:08 UTC (rev 2572)
+++ trunk/bin/ir.pl	2009-04-24 04:56:51 UTC (rev 2573)
@@ -1145,7 +1145,3 @@
 }
 
 
-sub 
-
-
-

Modified: trunk/t/42-dbobject.t
===================================================================
--- trunk/t/42-dbobject.t	2009-04-22 05:19:08 UTC (rev 2572)
+++ trunk/t/42-dbobject.t	2009-04-24 04:56:51 UTC (rev 2573)
@@ -1,14 +1,17 @@
 use LedgerSMB::DBObject;
-use Test::More tests => 20;
+use Test::More tests => 21;
 
 # Array parsing tests
 my $test = '{test,"test2\"\",",test3,"test4"}';
 my @vals = ('test', 'test2"",', 'test3', 'test4');
+my @vals2 = ('test', 'test2"",', 'test3', 'test4');
+
+is(LedgerSMB::DBObject->_db_array_scalars(@vals2), '{test,"test2\"\"\,",test3,test4}', '_db_array_scalars creates correct array');
+
 my $passes = 0;
 for (LedgerSMB::DBObject->_parse_array($test)){
   is($_, shift @vals, "pass $pass, array parse test");
 }
-
 my $test2 = '{{1,1,1,1},{1,2,2,2},{1,3,3,4}}';
 my @test_arry2_c = ( [1,1,1,1], [1,2,2,2], [1,3,3,4]);
 my @test_arry2 = LedgerSMB::DBObject->_parse_array($test2);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.