ref: ef5efcbbf1c2d775433867d7ed00b206a0e95dad
dir: /tests/opaque.zuo/
#lang zuo (require "harness.zuo") (alert "opaque records") (check (not (pair? (opaque 'hello "hi")))) (check (opaque-ref 'hello (opaque 'hello "hi") #f) "hi") (check (opaque-ref 'not-hello (opaque 'hello "hi") #f) #f) (check (opaque-ref (string->uninterned-symbol "hello") (opaque 'hello "hi") #f) #f) (check (opaque-ref 'hello (opaque (string->uninterned-symbol "hello") "hi") #f) #f) (check (opaque-ref (opaque 'hello "hi") 'hello #f) #f) (check (opaque-ref 10 10 #f) #f) (check (opaque-ref 10 10 'no) 'no)