Return to delete.t CVS log

Up to [LON-CAPA] / loncom / cfgedittests

1. Fix broken test for how lines move after delete.
2. Add tests to ensure that deleted lines are no longer really in the file.

    1: #
    2: # $Id: delete.t,v 1.3 2003/12/02 12:12:16 foxr Exp $
    3: #
    4: # Copyright Michigan State University Board of Trustees
    5: #
    6: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    7: #
    8: # LON-CAPA is free software; you can redistribute it and/or modify
    9: # it under the terms of the GNU General Public License as published by
   10: # the Free Software Foundation; either version 2 of the License, or
   11: # (at your option) any later version.
   12: #
   13: # LON-CAPA is distributed in the hope that it will be useful,
   14: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   15: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   16: # GNU General Public License for more details.
   17: #
   18: # You should have received a copy of the GNU General Public License
   19: # along with LON-CAPA; if not, write to the Free Software
   20: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   21: #
   22: # /home/httpd/html/adm/gpl.txt
   23: #
   24: # http://www.lon-capa.org/
   25: #
   26: 
   27: 
   28: #  Test new functionality of ConfigFileEditor::delete
   29: #
   30: 
   31: use strict;
   32: use Test;
   33: use ConfigFileEdit;
   34: 
   35: 
   36: #
   37: #   Tests  we plan are:
   38: #   Delete a line from the middle of the test file
   39: #     with a pile of consistency test.
   40: #   Delete a line from the end of the test file 
   41: #     with a pile of consistency tests.
   42: #  NOTE: deleting from the beginning is the same as
   43: #    from the middle.
   44: #
   45: 
   46: BEGIN {plan tests => 8}
   47: 
   48: #
   49: #   Test deletion of middle element.
   50: #   - Use the test file test2config.cfg
   51: #   - Delete the line with key line2
   52: #   - Total number of lines should go down by 1.
   53: #   - line1 - index should not change.
   54: #   - last  - index should go down by 1.
   55: sub  TestDeleteMiddle {
   56: 
   57:     my $editor    =    ConfigFileEdit->new("test2config.cfg", 0);
   58: 
   59:     my $linecount =    $editor->LineCount(); 
   60:     my $hashref   =    $editor->{KeyToLines};
   61:     my $initiallast =  $hashref->{"last"};
   62: 
   63:     $editor->DeleteLine("line2");
   64:     ok($editor->LineCount(), $linecount-1);
   65: 
   66:     $hashref = $editor->{KeyToLines};
   67:     ok($hashref->{"line1"}, 0);
   68: 
   69:     ok($hashref->{"last"}, $initiallast-1);
   70: 
   71:     my $deleted = $editor->Find("line2");
   72:     if(!defined($deleted)) {
   73: 	ok(1);
   74:     } else {
   75: 	ok(0);
   76:     }
   77: 
   78: }
   79: 
   80: #
   81: #   Test deletion of last element:
   82: #   - Use the test file test2config.cfg
   83: #   - Delete the line with key "last" (last line).
   84: #   - # lines should go down by 1.
   85: #   - line1 index should not change.
   86: #   - line2 index should not change.
   87: sub TestDeleteEnd {
   88:     my $editor    = ConfigFileEdit->new("test2config.cfg", 0);
   89:     my $linecount = $editor->LineCount();
   90:     my $hashref   = $editor->{KeyToLines};
   91:     my $line1idx  = $hashref->{"line1"};
   92:     my $line2idx  = $hashref->{"line2"};
   93: 
   94:     $editor->DeleteLine("last");
   95: 
   96:     ok($editor->LineCount(), $linecount-1);
   97:     $hashref   = $editor->{KeyToLines}; # Hash may change due to reindex!!
   98:     ok($hashref->{"line1"}, $line1idx);
   99:     ok($hashref->{"line2"}, $line2idx);
  100: 
  101:     my $deleted = $editor->Find("last");
  102:     if(!defined($deleted)) {
  103: 	ok(1);
  104:     } else {
  105: 	ok(0);
  106:     }
  107: 
  108: }
  109: 
  110: TestDeleteMiddle;
  111: TestDeleteEnd;
  112: