src/test/test_symbol.sb

   1 # Tests for symbols.
   2
   3 function puts blob {
   4   write_blob_to_stream blob standard_output
   5   write_newline_and_flush_stream standard_output
   6   return 0
   7 }
   8
   9 var a_b = "foo"
  10 puts @a_b
  11 var a_sym = intern @a_b
  12 var a_name = symbol_name @a_sym
  13 puts @a_name
  14
  15 var b_b = "foo"
  16 puts @b_b
  17 var b_sym = intern @b_b
  18 var b_name = symbol_name @b_sym
  19 puts @b_name
  20
  21 puts (boolean_to_blob (eq @a_sym @b_sym))
  22
  23 var c_b = "bar"
  24 var c_sym = intern @c_b
  25 puts (boolean_to_blob (eq @a_sym @c_sym))
  26
  27 var d_b = "fooz"
  28 var d_sym = intern @d_b
  29 puts (boolean_to_blob (eq @a_sym @d_sym))
  30
  31 var test_b = "test"
  32 var test_sym = intern @test_b
  33 var nsa = get_namespace @a_sym
  34 var a_nsa = namespace_intern @nsa @a_b
  35 var nstest = get_namespace @test_sym
  36 var a_nstest = namespace_intern @nstest @a_b
  37 puts (boolean_to_blob (eq @a_nsa @a_nstest))
  38
  39 var nsa1 = get_namespace @a_sym
  40 var a_nsa1 = namespace_intern @nsa1 @a_b
  41 puts (boolean_to_blob @a_nsa @a_nsa1)