X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;fp=tests%2Ftest-oodml.lisp;h=953a604a9adc693a657e2185c66ccab3ce37ecef;hp=da513dae52674f0d10121ccef816832dd5a07749;hb=0b35694f3659e5ee739ea72ce74d798c3f0ddb73;hpb=c5114f6d1dd70197d14c94ac8b83c19016e76880

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index da513da..953a604 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -780,13 +780,13 @@
 	(progn
 	  (clsql:update-records [node]
 				:av-pairs '(([title] "altered title"))
-				:where [= [node-id] 9])
+				:where [= [node-id] (node-id loc2)])
 	  (clsql:update-slot-from-record loc2 'title)
 	  (print-loc loc2))
 	(progn
 	  (clsql:update-records [subloc]
 				:av-pairs '(([loc] "altered loc"))
-				:where [= [subloc-id] 11])
+				:where [= [subloc-id] (subloc-id subloc2)])
 	  (clsql:update-slot-from-record subloc2 'loc)
 	  (print-subloc subloc2)))))
   "9: location-2" "11: second subloc"