Test new list operations.

 # -*- tcl -*-
 # This file is part of Mailutils testsuite.
-# Copyright (C) 2003, Free Software Foundation
+# Copyright (C) 2003, 2005 Free Software Foundation
 #  
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -107,6 +107,45 @@ mailbox_prog_test "iter 1"
 prompt_text "3"
 mailbox_prog_test "next 2"
 
+mailbox_prog_command "ins jeden un"
+mailbox_prog_test "print" \
+	"3" \
+	"dwa" \
+	"jeden" \
+        "un" \
+	"en" \
+	"to" \
+	"fem"
+
+mailbox_prog_command "ins before jeden zero"
+mailbox_prog_test "print" \
+	"3" \
+	"dwa" \
+        "zero" \
+	"jeden" \
+        "un" \
+	"en" \
+	"to" \
+	"fem"
+
+prompt_text "un"
+mailbox_prog_test "find un"
+
+mailbox_prog_command "ins before un cero"
+mailbox_prog_command "ins un dos"
+
+mailbox_prog_test "print" \
+	"3" \
+	"dwa" \
+        "zero" \
+	"jeden" \
+        "cero" \
+        "un" \
+        "dos" \
+	"en" \
+	"to" \
+	"fem"
+
 mailbox_prog_send "quit"
 mailbox_prog_stop