oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Crud create() for specific id (#9035)

Browse source
This commit is contained in:
JT Smith 2008-11-04 15:50:09 +00:00
parent 7fc7dd7649
commit 83bb3c1904
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Crud.t
View file

@ -28,7 +28,7 @@ my $session = WebGUI::Test->session;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # 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"); 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"); 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 # instanciation
my $record2 = WebGUI::Crud->create($session); my $record2 = WebGUI::Crud->create($session);
isnt($record1->getId, $record2->getId, "can retrieve unique rows"); isnt($record1->getId, $record2->getId, "can retrieve unique rows");