SF.net SVN: ledger-smb:[2836] trunk/t/data/62-request-data

[..hidden..]

Revision: 2836
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2836&view=rev
Author:   aurynn_cmd
Date:     2009-12-22 23:07:46 +0000 (Tue, 22 Dec 2009)

Log Message:
-----------
Updates to allow for completable test cases, for the Currency Constraint modification.

Modified Paths:
--------------
    trunk/t/data/62-request-data

Modified: trunk/t/data/62-request-data
===================================================================
--- trunk/t/data/62-request-data	2009-12-22 21:21:29 UTC (rev 2835)
+++ trunk/t/data/62-request-data	2009-12-22 23:07:46 UTC (rev 2836)
@@ -22,13 +22,19 @@
 	
 	# Tests adding a new customer/vendor.
 	
+	#https://127.0.0.1/ledgersmb/vendor.pl?login=aurynn_lsmb&module=vendor.pl&action=add&db=vendor&;
 	{
 	    "_test_id"      => "AP Add Vendor",
 	    "_codebase"     => "new",
-	    "action"        => "add",
-	    "module"        => "customer.pl",
-	    "control_code"  => "TestableEntityObject",
+	    "action"        => "save",
+	    "module"        => "vendor.pl",
+	    "control_code"  => "TestAddVendorObj",
 	    "name"          => "TestObj",
+	    "country_id_t"  => 232,
+	    "account_class" => 1,
+	    "created_as_class" => 1,
+	    "db"            => "vendor",
+	    "_script_handle" => "LedgerSMB::Scripts::vendor",
 	    "_lwp_tests"    => sub {
 	        # Catch the entity ID, and pass it forwards.
 	        # Res is the full LWP response object.
@@ -43,13 +49,19 @@
 	{
 	    "_test_id"          => "AP Save Vendor",
 	    "_codebase"         => "new",
-	    "module"            => "customer.pl",
+	    "module"            => "vendor.pl",
 	    "action"            => "save",
 	    "pay_to_name"       => "TestEntity",
 	    "entity_id"         => $GLOBAL{"entity_id"},
-	    "control_code"      => "TestableEntityObject",
+	    "control_code"      => "TestAddVendorObj",
 	    "ar_ap_account_id"  => 10,
 	    "cash_account_id"   => 1,
+	    "country_id_t"  => 232,
+	    "account_class" => 1,
+	    "created_as_class" => 1,
+	    "db"            => "vendor",
+	    "name"          => "TestObj",
+	    "_script_handle" => "LedgerSMB::Scripts::vendor",
 	    "_lwp_tests"        => sub {
 	        
 	        my $res = shift @_;


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