;; test_characters.nu ;; tests for Nu character literals. ;; ;; Copyright (c) 2007 Tim Burks, Radtastical Inc. (class TestCharacters is NuTestCase (- (id) testRegularCharacters is (set a 'a') (set Z 'Z') (set LPAREN '(') (set RPAREN ')') (set SEMICOLON ';') (set HASH '#') (set golden "aZ();#") (assert_equal (golden characterAtIndex:0) a) (assert_equal (golden characterAtIndex:1) Z) (assert_equal (golden characterAtIndex:2) LPAREN) (assert_equal (golden characterAtIndex:3) RPAREN) (assert_equal (golden characterAtIndex:4) SEMICOLON) (assert_equal (golden characterAtIndex:5) HASH)) (- (id) testEscapedCharacters is (assert_equal 10 '\n') (assert_equal 13 '\r') (assert_equal 12 '\f') (assert_equal 8 '\b') (assert_equal 7 '\a') (assert_equal 27 '\e') (assert_equal 32 '\s')) (- (id) testOctalEscapedCharacters is (assert_equal 0 '\000') (assert_equal 1 '\001') (assert_equal 255 '\377')) (- (id) testHexEscapedCharacters is (assert_equal 0 '\x00') (assert_equal 1 '\x01') (assert_equal 255 '\xfF')) (- (id) testUnicodeEscapedCharacters is (assert_equal 0 '\u0000') (assert_equal 1 '\u0001') (assert_equal 65535 '\uFfFf') (assert_equal 255 '\u00ff')) (- (id) testFourCharacterIntegers is (assert_equal 1886604404 'psLt') (assert_equal 1886601524 'psA4')))