[Swig-cvs] SWIG/Examples/test-suite/perl5 li_std_string_runme.pl,1.5,1.6

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Examples/test-suite/perl5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11410/Examples/test-suite/perl5

Modified Files:
	li_std_string_runme.pl 
Log Message:
more fixes/tests for empty strings

Index: li_std_string_runme.pl
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/test-suite/perl5/li_std_string_runme.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** li_std_string_runme.pl	27 Mar 2006 20:11:52 -0000	1.5
--- li_std_string_runme.pl	4 May 2006 04:45:41 -0000	1.6
***************
*** 119,120 ****
--- 119,146 ----
  }
  
+ 
+ if (li_std_string::empty() ne "") {
+     die ("empty");
+ }
+ 
+ if (li_std_string::c_empty() ne "") {
+     die ("c_empty");
+ }
+ 
+ 
+ if (li_std_string::c_null() ne undef) {
+     die ("c_empty");
+ }
+ 
+ 
+ if (li_std_string::get_null(li_std_string::c_null()) ne undef) {
+     die ("c_empty");
+ }
+ 
+ if (li_std_string::get_null(li_std_string::c_empty()) ne "non-null") {
+     die ("c_empty");
+ }
+ 
+ if (li_std_string::get_null(li_std_string::empty()) ne "non-null") {
+     die ("c_empty");
+ }