Re-enable and fix a TR class test

It turns out the test was wrong instead of the implementation.
In particular, it reversed the internal/external name and thus
the error it failed with was correct (though not the intention of
the test).
This commit is contained in:
Asumu Takikawa 2014-04-23 12:03:34 -04:00
parent 92bdd84b07
commit e230456fd7

View File

@ -1105,18 +1105,15 @@
#:ret (ret -Void)
#:msg #rx"superclass is missing a required augmentable method"]
;; Pubment with separate internal/external names
;; FIXME: broken right now due to : macro changes
#|
[tc-e (let ()
(define c%
(class object%
(super-new)
(: m (Symbol -> Symbol))
(: n (Symbol -> Symbol))
(pubment [n m])
(define n (λ (x) 'a))))
(send (new c%) m 'b))
-Symbol]
|#
;; Pubment with expected class type
[tc-e (let ()
(: c% (Class [m (String -> String)]