compilers/nqp/t/19-hash_access.t

   1 #!./parrot nqp.pbc
   2
   3 # check hash access methods
   4
   5 plan(7);
   6
   7 my %h;
   8
   9 %h<a> := 1;
  10 say("ok 1 # hash assignment with numeric value doesn't barf");
  11
  12 say('ok ', %h<a> + 1, ' # hash access to numeric value');
  13
  14 %h<a> := 'ok 3';
  15 say(%h<a>, ' # hash access to string value');
  16
  17 %h{1} := '4';
  18 say('ok ', %h{1}, ' # numeric hash access');
  19
  20 say('ok ', %h<1> + 1, ' # numbers stringify');
  21
  22 %h{'b'} := 'ok 6 # single quoted curly braces work';
  23 say(%h{'b'});
  24
  25 %h{"foo"} := "ok 7 # double quoted curly braces work";
  26 say(%h{"foo"});
  27