From 83bb3c1904e10638f458e60282e3e6801f204540 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Tue, 4 Nov 2008 15:50:09 +0000 Subject: [PATCH] Crud create() for specific id (#9035) --- t/Crud.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/Crud.t b/t/Crud.t index 6214399cb..396b470eb 100644 --- a/t/Crud.t +++ b/t/Crud.t @@ -28,7 +28,7 @@ my $session = WebGUI::Test->session; #---------------------------------------------------------------------------- # Tests -plan tests => 54; # Increment this number for each test you create +plan tests => 55; # Increment this number for each test you create #---------------------------------------------------------------------------- @@ -58,6 +58,11 @@ like($record1->get('sequenceNumber'), qr/\d+/, "sequenceNumber looks like a numb is($record1->get('sequenceNumber'), 1, "record 1 sequenceNumber is 1"); like($record1->get('id'), qr/[A-Za-z0-9_-]{22}/, "id looks like a guid"); +# custom id +my $record2 = WebGUI::Crud->create($session,{},{id=>'theshawshankredemption'}); +is($record2->get('id'),'theshawshankredemption',"custom id works"); +$record2->delete; + # instanciation my $record2 = WebGUI::Crud->create($session); isnt($record1->getId, $record2->getId, "can retrieve unique rows");