[Firebird-checkins] CVS: interbase/firebird/fsg/TCS dump_gtcs.pl,1.3,1.4 fix_it.sql,1.1,1.2 howto.txt,1.1,1.2 import_all,1.1,1.2 import_gtcs.pl,1.1,1.2

[Frank Schlottmann-G. <fs...@us...>]

Update of /cvsroot/firebird/interbase/firebird/fsg/TCS
In directory slayer.i.sourceforge.net:/tmp/cvs-serv17129/interbase/firebird/fsg/TCS

Modified Files:
	dump_gtcs.pl fix_it.sql howto.txt import_all import_gtcs.pl 
Log Message:
Changes to handle <null> values correctly


Index: dump_gtcs.pl
===================================================================
RCS file: /cvsroot/firebird/interbase/firebird/fsg/TCS/dump_gtcs.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** dump_gtcs.pl	2000/11/07 16:04:07	1.3
--- dump_gtcs.pl	2000/11/10 14:43:13	1.4
***************
*** 162,166 ****
          foreach $Fields (@row)
          {
!              
             if ($st->{Datatypes}[$i] eq 'BLOB')
             # Dump the blob to a file and print a reference
--- 162,171 ----
          foreach $Fields (@row)
          {
!            if ($st->{Nulls}[$i])
!            {
!              print OUT "<null>;";
!            }
!            else
!            {
             if ($st->{Datatypes}[$i] eq 'BLOB')
             # Dump the blob to a file and print a reference
***************
*** 191,194 ****
--- 196,200 ----
               } 
               print OUT "$Fields;";
+            }
             }
         ++$i;

Index: fix_it.sql
===================================================================
RCS file: /cvsroot/firebird/interbase/firebird/fsg/TCS/fix_it.sql,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** fix_it.sql	2000/11/07 16:04:07	1.1
--- fix_it.sql	2000/11/10 14:43:13	1.2
***************
*** 1,10 ****
  set sql dialect 3;
- update tests set EDIT_BY='NN' where EDIT_BY is null;
  update tests set "DATE"='01.01.80' where "DATE"<'01.01.80';
- update series_comment set EDIT_BY='NN' where EDIT_BY is null;
- update series_comment set CREATED_BY='NN' where CREATED_BY is null;
- update series_comment set "DATE"='01.01.80' where "DATE" is null;
- update series_comment set EDIT_DATE='01.01.80' where EDIT_DATE is null;
- 
  commit;
  exit;
--- 1,4 ----

Index: howto.txt
===================================================================
RCS file: /cvsroot/firebird/interbase/firebird/fsg/TCS/howto.txt,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** howto.txt	2000/11/07 16:04:07	1.1
--- howto.txt	2000/11/10 14:43:13	1.2
***************
*** 4,8 ****
  database.
  
! This would make it possible to place the tests under 
  cvs control.
  
--- 4,8 ----
  database.
  
! This would make it possible to place a test pool under 
  cvs control.
  
***************
*** 22,26 ****
  
  5. If you like your newly created gtcs.gdb, copy it to
!    your tests directory.
  
  
--- 22,31 ----
  
  5. If you like your newly created gtcs.gdb, copy it to
!    your tests directory. 
!  
!    Sorry, at the moment the TCS will not work correctly 
!    with this new gtcs.gdb. I'm working on this.
! 
! Frank
  
  

Index: import_all
===================================================================
RCS file: /cvsroot/firebird/interbase/firebird/fsg/TCS/import_all,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2

Index: import_gtcs.pl
===================================================================
RCS file: /cvsroot/firebird/interbase/firebird/fsg/TCS/import_gtcs.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** import_gtcs.pl	2000/11/07 16:04:07	1.1
--- import_gtcs.pl	2000/11/10 14:43:13	1.2
***************
*** 69,76 ****
        {
           open(FILEHANDLE,"./export/global/$Field");
!          sysread(FILEHANDLE, @data[$i], 1000000);
         #  @data[$i]='BLOB';
        }     
! #      print "@data[$i], ";
        ++$i;
      } 
--- 69,80 ----
        {
           open(FILEHANDLE,"./export/global/$Field");
!          sysread(FILEHANDLE, $data[$i], 1000000);
         #  @data[$i]='BLOB';
        }     
! 
!       if ($Field eq '<null>')
!       {
!          $data[$i]=undef;
!       }
        ++$i;
      } 
***************
*** 78,84 ****
      while ($i > @data)
      {
!     @data=(@data,'');
      }
- #    print "\n";
      if ($st->execute( @data ) < 0)
      {
--- 82,87 ----
      while ($i > @data)
      {
!        @data=(@data,undef);
      }
      if ($st->execute( @data ) < 0)
      {