[LON-CAPA-cvs] cvs: newloncapa /types Queuetest.pl
foxr
lon-capa-cvs@mail.lon-capa.org
Tue, 01 Apr 2003 23:23:15 -0000
foxr Tue Apr 1 18:23:15 2003 EDT
Modified files:
/newloncapa/types Queuetest.pl
Log:
Do a bit of work to ensure we really get intended results when dequeueing an
empty queue.
Index: newloncapa/types/Queuetest.pl
diff -u newloncapa/types/Queuetest.pl:1.1.1.1 newloncapa/types/Queuetest.pl:1.2
--- newloncapa/types/Queuetest.pl:1.1.1.1 Wed Feb 26 20:28:12 2003
+++ newloncapa/types/Queuetest.pl Tue Apr 1 18:23:15 2003
@@ -28,7 +28,8 @@
# Over pop q1:
+$over = $q1->dequeue();
print "Overpopped q1: ".$q1->dequeue()."\n";
-if ($q1->dequeue() == undef) {
+if ($over == undef) {
print "Overpopping gives undefined\n"
}