Return to append.t CVS log

Up to [LON-CAPA] / loncom / cfgedittests

Annotation of loncom/cfgedittests/append.t, revision 1.1.1.1

1.1       foxr        1: #
                      2: # $Id: gplheader.pl,v 1.1 2001/11/29 18:19:27 www 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: use strict;
                     28: use Test;
                     29: use ConfigFileEdit;
                     30: 
                     31: 
                     32: #
                     33: #   Test the ability to append an item to the list.
                     34: #   Tests we plan are:
                     35: #      Append item and check that:
                     36: #      1)   The count of items is incremented by 1.
                     37: #      2)   The last item is the one we added.
                     38: #      3)   Append comment ensure that size of index is not
                     39: #           increased.
                     40: #
                     41: BEGIN {plan tests=>3}
                     42: 
                     43: #
                     44: #   Test that after an append, the count of items is increased by one.
                     45: 
                     46: sub TestAppendCount {
                     47:     my $editor        = ConfigFileEdit->new("testconfig.cfg", 0);
                     48:     my $editorlines   = ($editor->{LineArray});
                     49:     my $initiallength = @$editorlines;
                     50:  
                     51:     $editor->Append("onemore:line:added:at:end");
                     52: 
                     53:     $editorlines      = ($editor->{LineArray});
                     54:     my $finallength   = @$editorlines;
                     55: 
                     56:     ok($initiallength+1, $finallength);
                     57: }
                     58: #
                     59: #   Test that after an append the new item has an index that is last.
                     60: #
                     61: sub TestAppendIsLast
                     62: {
                     63:     my $editor       = ConfigFileEdit->new("testconfig.cfg", 0);
                     64:     $editor->Append("onemore:line:added:at:end");
                     65: 
                     66:     my $editorlines  = ($editor->{LineArray});
                     67:     my $finallength  = @$editorlines;
                     68:     
                     69:     my $editorhash   = ($editor->{KeyToLines});
                     70:     my $linenum      = $editorhash->{"onemore"};
                     71: 
                     72:     ok($finallength - 1, $linenum); # New line is last line.
                     73:     
                     74: }
                     75: #
                     76: #   Test that append comment does not add to the index hash.
                     77: #
                     78: sub TestCommentAppend {
                     79:     my $editor           = ConfigFileEdit->new("testconfig.cfg", 0);
                     80: 
                     81:     # Figure out how many keys we have now.
                     82: 
                     83:     my $editorhash       = ($editor->{KeyToLines});
                     84:     my @hashkeys         = keys %$editorhash;
                     85:     my $initialcount     = @hashkeys;
                     86: 
                     87:     #  Append a comment and figure out how many keys we have:
                     88: 
                     89:     $editor->Append("#   This is clearly a comment line");
                     90:     $editorhash         = ($editor->{KeyToLines});
                     91:     @hashkeys           = keys %$editorhash;
                     92: 
                     93:     my $finalcount      = @hashkeys;
                     94: 
                     95:     ok($initialcount, $finalcount);
                     96: }
                     97: 
                     98: TestAppendCount;
                     99: TestAppendIsLast;
                    100: TestCommentAppend