cvs commit: parrot/languages/tcl/t tcl_backslash.t

[Will Coleda]

cvsuser     05/01/03 16:50:57

  Modified:    languages/tcl/t tcl_backslash.t
  Log:
  Add TODO tests for octal backslash escapes
  
  Revision  Changes    Path
  1.3       +56 -2     parrot/languages/tcl/t/tcl_backslash.t
  
  Index: tcl_backslash.t
  ===================================================================
  RCS file: /cvs/public/parrot/languages/tcl/t/tcl_backslash.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- tcl_backslash.t   15 May 2004 02:27:28 -0000      1.2
  +++ tcl_backslash.t   4 Jan 2005 00:50:57 -0000       1.3
  @@ -1,10 +1,11 @@
   #!/usr/bin/perl
   
  -#XXX need TODO tests for octal, hex, unicode
  +#XXX need TODO tests for hex, unicode
   
   use strict;
   use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
  -use Parrot::Test tests => 9;
  +use Parrot::Test tests => 15;
  +use vars qw($TODO);
   
   my($tcl,$expected);
   
  @@ -62,3 +63,56 @@
   EOTCL
   $expected = "a b\n";
   language_output_is("tcl",$tcl,$expected,"backslash newline substitution");
  +
  +TODO: {
  +local $TODO = "neither octal escapes nor expr currently work.";
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal single char");
  +  set a \a
  +  set b \7
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal single char, extra");
  +  set a "\a9"
  +  set b \79
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal double char");
  +  set a \n
  +  set b \12
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal double char, extra");
  +  set a "\n9"
  +  set b \129
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal triple char");
  +  set a S
  +  set b \123
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +language_output_is("tcl",<<'TCL',<<OUT,"octal triple char, extra");
  +  set a S4
  +  set b \1234
  +  puts [expr {$a} eq {$b}]
  +TCL
  +1
  +OUT
  +
  +}