END_TEST START_TEST (test_symbol_string) { XR sym = xr_sym("symbol"); XR str = send(sym, s_string); fail_unless(qsend(str, "eq", xr_str("symbol")) == VAL_TRUE); }
END_TEST /* START_TEST (test_symbol_pack_unpack) { XR foo = xr_sym("foo"); FILE *fp = fopen("test_symbol_pack.tmp", "w"); qsend( } END_TEST */ START_TEST (test_symbol_literal) { XR sym = xr_sym("symbol"); XR lit = send(sym, s_literal); fail_unless(qsend(lit, "eq", xr_str(":symbol")) == VAL_TRUE); }
XR symbol_string(XR cl, XR self) { (void) cl; return xr_str(xrSymPtr(self)); }