#
# $Id: append.t,v 1.1 2003/11/25 12:12:34 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
use strict;
use Test;
use ConfigFileEdit;
#
# Test the ability to append an item to the list.
# Tests we plan are:
# Append item and check that:
# 1) The count of items is incremented by 1.
# 2) The last item is the one we added.
# 3) Append comment ensure that size of index is not
# increased.
#
BEGIN {plan tests=>3}
#
# Test that after an append, the count of items is increased by one.
sub TestAppendCount {
my $editor = ConfigFileEdit->new("testconfig.cfg", 0);
my $editorlines = ($editor->{LineArray});
my $initiallength = @$editorlines;
$editor->Append("onemore:line:added:at:end");
$editorlines = ($editor->{LineArray});
my $finallength = @$editorlines;
ok($initiallength+1, $finallength);
}
#
# Test that after an append the new item has an index that is last.
#
sub TestAppendIsLast
{
my $editor = ConfigFileEdit->new("testconfig.cfg", 0);
$editor->Append("onemore:line:added:at:end");
my $editorlines = ($editor->{LineArray});
my $finallength = @$editorlines;
my $editorhash = ($editor->{KeyToLines});
my $linenum = $editorhash->{"onemore"};
ok($finallength - 1, $linenum); # New line is last line.
}
#
# Test that append comment does not add to the index hash.
#
sub TestCommentAppend {
my $editor = ConfigFileEdit->new("testconfig.cfg", 0);
# Figure out how many keys we have now.
my $editorhash = ($editor->{KeyToLines});
my @hashkeys = keys %$editorhash;
my $initialcount = @hashkeys;
# Append a comment and figure out how many keys we have:
$editor->Append("# This is clearly a comment line");
$editorhash = ($editor->{KeyToLines});
@hashkeys = keys %$editorhash;
my $finalcount = @hashkeys;
ok($initialcount, $finalcount);
}
TestAppendCount;
TestAppendIsLast;
TestCommentAppend
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>