Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (11 sloc) 472 Bytes
;; test_references.nu
;; tests for Nu pass-by-reference extensions.
;;
;; Copyright (c) 2007 Tim Burks, Radtastical Inc.
(class TestReferences is NuTestCase
(- (id) testReturnByReference is
(class ReferenceClass is NSObject
(+ (void) returnByReference:(id *) reference is
(reference setValue:99)))
(ReferenceClass returnByReference:(set reference (NuReference new)))
(assert_equal 99 (reference value))))