- (with-dataset *ds-datetest*
- (let ((time (parse-timestring "2008-09-09T14:37:29-04:00")))
- (clsql-sys:update-records-from-instance
- (make-instance 'datetest :testtimetz time :testtime time))
- (let ((o (first (clsql:select
- 'datetest
- :limit 1 :flatp T
- :where [= [testtime] time] ))))
- (assert o (o) "o shouldnt be null here (we should have just inserted)")
- (update-records-from-instance o)
- (update-instance-from-records o)
- (assert (time= (testtime o) time) (time o)
- "Time of o: ~s should be time:~s" (testtime o) time)
- (assert (time= (testtimetz o) time) (time o)
- "Timetz of o: ~s should be time:~s" (testtime o) time))))
- nil)
+ (with-dataset *ds-datetest*
+ (let ((time (parse-timestring "2008-09-09T14:37:29-04:00")))
+ (clsql-sys:update-records-from-instance
+ (make-instance 'datetest :testtimetz time :testtime time))
+ (let ((o (first (clsql:select
+ 'datetest
+ :limit 1 :flatp t
+ :where [= [testtime] time] ))))
+ (assert o (o) "o shouldnt be null here (we should have just inserted)")
+ (update-records-from-instance o)
+ (update-instance-from-records o)
+ (values (iso-timestring (testtime o))
+ (iso-timestring (testtimetz o))))))
+ #.(iso-timestring (parse-timestring "2008-09-09T14:37:29-04:00"))
+ #.(iso-timestring (parse-timestring "2008-09-09T14:37:29-04:00")))