r9260: 6 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / tests / test-ooddl.lisp

diff --git a/tests/test-ooddl.lisp b/tests/test-ooddl.lisp
index 497bef6099c10b9d5c4a33686cdc681e4c559555..48d1630fd6a815acb8636d491f2e390170c2cafd 100644 (file)
--- a/tests/test-ooddl.lisp
+++ b/tests/test-ooddl.lisp
@@ -48,9 +48,8 @@
   t t t)
 
 (deftest :ooddl/join/1
-    (mapcar #'(lambda (e)
-                (slot-value e 'companyid))
-            (company-employees company1))
+    (mapcar #'(lambda (e) (slot-value e 'ecompanyid))
+     (company-employees company1))
   (1 1 1 1 1 1 1 1 1 1))
 
 (deftest :ooddl/join/2