test/t2004-insdel-colrow.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 my $expected;
   9 { local $/; $expected = <DATA>; }
  10
  11 &message ("Check insert/delete col/row.");
  12 &sstest ("test_insert_delete", $expected);
  13
  14 __DATA__
  15 -----------------------------------------------------------------------------
  16 Start: test_insert_delete
  17 -----------------------------------------------------------------------------
  18
  19 # Init
  20 B2: =D4+1
  21 D2: =if(TRUE,B2,2)
  22 # About to insert column before F
  23 B2: =D4+1
  24 D2: =if(TRUE,B2,2)
  25 # About to insert column before E
  26 B2: =D4+1
  27 D2: =if(TRUE,B2,2)
  28 # About to insert column before D
  29 B2: =E4+1
  30 E2: =if(TRUE,B2,2)
  31 # About to insert column before C
  32 B2: =F4+1
  33 F2: =if(TRUE,B2,2)
  34 # About to insert column before B
  35 C2: =G4+1
  36 G2: =if(TRUE,C2,2)
  37 # About to insert column before A
  38 D2: =H4+1
  39 H2: =if(TRUE,D2,2)
  40 # About to insert row before 6
  41 D2: =H4+1
  42 H2: =if(TRUE,D2,2)
  43 # About to insert row before 5
  44 D2: =H4+1
  45 H2: =if(TRUE,D2,2)
  46 # About to insert row before 4
  47 D2: =H5+1
  48 H2: =if(TRUE,D2,2)
  49 # About to insert row before 3
  50 D2: =H6+1
  51 H2: =if(TRUE,D2,2)
  52 # About to insert row before 2
  53 D3: =H7+1
  54 H3: =if(TRUE,D3,2)
  55 # About to insert row before 1
  56 D4: =H8+1
  57 H4: =if(TRUE,D4,2)
  58 # Undo the lot
  59 B2: =D4+1
  60 D2: =if(TRUE,B2,2)
  61 # About to delete column F
  62 B2: =D4+1
  63 D2: =if(TRUE,B2,2)
  64 # About to delete column E
  65 B2: =D4+1
  66 D2: =if(TRUE,B2,2)
  67 # About to delete column D
  68 B2: =#REF!+1
  69 # About to delete column C
  70 B2: =#REF!+1
  71 # About to delete column B
  72 # About to delete column A
  73 # About to delete row 6
  74 # About to delete row 5
  75 # About to delete row 4
  76 # About to delete row 3
  77 # About to delete row 2
  78 # About to delete row 1
  79 # Undo the lot
  80 B2: =D4+1
  81 D2: =if(TRUE,B2,2)
  82 End: test_insert_delete
  83