projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d9937e9
)
r9812: * tests/test-oodml.lisp: update tests for updating records with floats.
author
Marcus Pearce
<m.t.pearce@city.ac.uk>
Fri, 23 Jul 2004 21:19:49 +0000
(21:19 +0000)
committer
Marcus Pearce
<m.t.pearce@city.ac.uk>
Fri, 23 Jul 2004 21:19:49 +0000
(21:19 +0000)
tests/test-oodml.lisp
patch
|
blob
|
history
diff --git
a/tests/test-oodml.lisp
b/tests/test-oodml.lisp
index e1bb530c079b87d76930f44f4d0a59a7ca59af9a..78a379cb95d799e696f37fe178e1cdb80f8719be 100644
(file)
--- a/
tests/test-oodml.lisp
+++ b/
tests/test-oodml.lisp
@@
-526,13
+526,14
@@
(progn
(setf (slot-value emp1 'height) 1.0E0)
(clsql:update-record-from-slot emp1 'height)
(progn
(setf (slot-value emp1 'height) 1.0E0)
(clsql:update-record-from-slot emp1 'height)
- (car (clsql:select [height] :from [employee]
- :where [= [emplid] 1]
- :flatp t
- :field-names nil)))
+ (= (car (clsql:select [height] :from [employee]
+ :where [= [emplid] 1]
+ :flatp t
+ :field-names nil))
+ 1))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
-
1.0d0
)
+
t
)
(deftest :oodml/float/2
(let* ((emp1 (car (select 'employee
(deftest :oodml/float/2
(let* ((emp1 (car (select 'employee
@@
-545,13
+546,14
@@
(progn
(setf (slot-value emp1 'height) 1.0S0)
(clsql:update-record-from-slot emp1 'height)
(progn
(setf (slot-value emp1 'height) 1.0S0)
(clsql:update-record-from-slot emp1 'height)
- (car (clsql:select [height] :from [employee]
- :where [= [emplid] 1]
- :flatp t
- :field-names nil)))
+ (= (car (clsql:select [height] :from [employee]
+ :where [= [emplid] 1]
+ :flatp t
+ :field-names nil))
+ 1))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
-
1.0d0
)
+
t
)
(deftest :oodml/float/3
(let* ((emp1 (car (select 'employee
(deftest :oodml/float/3
(let* ((emp1 (car (select 'employee
@@
-564,13
+566,14
@@
(progn
(setf (slot-value emp1 'height) 1.0F0)
(clsql:update-record-from-slot emp1 'height)
(progn
(setf (slot-value emp1 'height) 1.0F0)
(clsql:update-record-from-slot emp1 'height)
- (car (clsql:select [height] :from [employee]
- :where [= [emplid] 1]
- :flatp t
- :field-names nil)))
+ (= (car (clsql:select [height] :from [employee]
+ :where [= [emplid] 1]
+ :flatp t
+ :field-names nil))
+ 1))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
-
1.0d0
)
+
t
)
(deftest :oodml/float/4
(let* ((emp1 (car (select 'employee
(deftest :oodml/float/4
(let* ((emp1 (car (select 'employee
@@
-583,13
+586,14
@@
(progn
(setf (slot-value emp1 'height) 1.0D0)
(clsql:update-record-from-slot emp1 'height)
(progn
(setf (slot-value emp1 'height) 1.0D0)
(clsql:update-record-from-slot emp1 'height)
- (car (clsql:select [height] :from [employee]
- :where [= [emplid] 1]
- :flatp t
- :field-names nil)))
+ (= (car (clsql:select [height] :from [employee]
+ :where [= [emplid] 1]
+ :flatp t
+ :field-names nil))
+ 1))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
-
1.0d0
)
+
t
)
(deftest :oodml/float/5
(let* ((emp1 (car (select 'employee
(deftest :oodml/float/5
(let* ((emp1 (car (select 'employee
@@
-602,13
+606,14
@@
(progn
(setf (slot-value emp1 'height) 1.0L0)
(clsql:update-record-from-slot emp1 'height)
(progn
(setf (slot-value emp1 'height) 1.0L0)
(clsql:update-record-from-slot emp1 'height)
- (car (clsql:select [height] :from [employee]
- :where [= [emplid] 1]
- :flatp t
- :field-names nil)))
+ (= (car (clsql:select [height] :from [employee]
+ :where [= [emplid] 1]
+ :flatp t
+ :field-names nil))
+ 1))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
(setf (slot-value emp1 'height) height)
(clsql:update-record-from-slot emp1 'height)))
-
1.0d0
)
+
t
)
))
))