Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (13 sloc) 0.709 kB
;; test_propertylists.nu
;; tests for Nu property list support.
;;
;; Copyright (c) 2008 Tim Burks, Radtastical Inc.
(class TestPropertyLists is NuTestCase
(- (id) testSerialization is
(if (eq (uname) "Darwin")
(then (set object (array 2 2 3.3 (dict now:(NSDate date)) "five" (array 1 2 3 4 5))))
;; GNUstep is not properly serializing/deserializing dates
(else (set object (array 2 2 3.3 (dict now:((NSDate date) timeIntervalSinceReferenceDate) "five" (array 1 2 3 4 5))))))
(set plist (object XMLPropertyListRepresentation))
(set object2 (plist propertyListValue))
(assert_equal (object description) (object2 description))))
Jump to Line
Something went wrong with that request. Please try again.