;; test_protocols.nu
;;  tests for Nu protocol support.
;;
;;  Copyright (c) 2007 Tim Burks, Neon Design Technology, Inc.
 
(if (eq (uname) "Darwin")
    
    (class TestProtocols is NuTestCase
         
         (imethod (id) testSimple is
              ;; first define a class with two methods
              (class Foo is NSObject
                   (- hello is "hello")
                   (- goodbye is "goodbye"))
              ;; make sure that both methods work
              (set foo ((Foo alloc) init))
              (assert_equal "hello" (foo hello))
              (assert_equal "goodbye" (foo goodbye))
              ;; now declare a protocol that includes only one of them
              (protocol DontSayGoodbye
                   (- (id) hello))
              (assert_equal 1 ((DontSayGoodbye methodDescriptions) count))
              ;; give the instance and protocol to a protocol checker
              (set bar ((NSProtocolChecker alloc) initWithTarget:foo protocol:DontSayGoodbye))
              ;; try the two methods; only the one in the protocol should be allowed
              (assert_equal "hello" (bar hello))
              (assert_throws "NuUnknownMessage" (bar goodbye)))))