Commit 059e1b08 authored by David Byers's avatar David Byers

Server:

    Linked aux-items get their creator from the source item.

Testing:
    Test cases updated to reflect this.
parent d9231e13
1999-06-13 David Byers <davby@ida.liu.se>
* src/server/testsuite/lyskomd.0/03.exp: Fix test cases for change
in aux_item_link_items below.
* src/server/testsuite/lyskomd.0/aux-items-cov.exp: Fix test cases
for change in aux_item_link_items below.
* src/server/aux-items.c (aux_item_link_items): Creator of linked
aux item is now the creator of the source item. This gives the
creator of the source item power over the linked item.
1999-06-11 David Byers <davby@ida.liu.se>
* src/server/aux-items.c: Cleared up comment for
undelete_aux_item_list.
1999-06-05 David Byers <davby@ida.liu.se>
* src/server/text-garb.c: Always include setjmp.h
1999-06-05 Per Cederqvist <ceder@lysator.liu.se>
Test lock files.
......
......@@ -3,6 +3,12 @@ server.
* Showstoppers
* High priority, but they can wait until after the next release.
** Features
*** Cross references should create a mirror item.
** Testing
*** No test case for attempting to garbage collect a text that has an
......@@ -127,8 +133,6 @@ server.
Returns secret persons and secret working conferences. No
filtering is done on the result.
* High priority, but they can wait until after the next release.
** modify_conf_info can operate on an rd_protected conf.
Perhaps we should have a flag that says an item can be added only
by members of the conference?
......
/*
* $Id: aux-items.c,v 1.16 1999/06/11 19:50:18 byers Exp $
* $Id: aux-items.c,v 1.17 1999/06/13 15:32:20 byers Exp $
* Copyright (C) 1994-1999 Lysator Academic Computer Association.
*
* This file is part of the LysKOM server.
......@@ -742,7 +742,7 @@ aux_item_link_items(Object_type src_type, /* Source object type */
item_list.length = 1;
item_list.items = dst_item_data;
prepare_aux_item_list(&item_list, 0);
prepare_aux_item_list(&item_list, src_item->creator);
/*
......@@ -756,17 +756,20 @@ aux_item_link_items(Object_type src_type, /* Source object type */
{
case TEXT_OBJECT_TYPE:
text_stat_add_aux_item_list((Text_stat *)dst_ptr,
(Text_no)dst_no, &item_list, 0);
(Text_no)dst_no, &item_list,
src_item->creator);
mark_text_as_changed((Text_no)dst_no);
break;
case CONF_OBJECT_TYPE:
conf_stat_add_aux_item_list((Conference *)dst_ptr,
(Conf_no)dst_no, &item_list, 0);
(Conf_no)dst_no, &item_list,
src_item->creator);
mark_conference_as_changed((Conf_no)dst_no);
break;
case INFO_OBJECT_TYPE:
system_add_aux_item_list((Info *)dst_ptr, &item_list, 0);
system_add_aux_item_list((Info *)dst_ptr, &item_list,
src_item->creator);
break;
default:
......
......@@ -1209,7 +1209,7 @@ simple_expect "=1326 12"
# test call 90 (get-text-stat)
send "1327 90 10\n"
# Text 10 should have two extra aux-items since it is the FAQ of conferences 10 and 11.
simple_expect "=1327 $time_10 0 0 17 0 2 { 0 7 6 8 } 3 { 1 1 0 $time_10 00000111 1 [holl "text/plain"] 2 28 0 $any_time 00001000 0 2H10 3 28 0 $any_time 00001000 0 2H11 }"
simple_expect "=1327 $time_10 0 0 17 0 2 { 0 7 6 8 } 3 { 1 1 0 $time_10 00000111 1 [holl "text/plain"] 2 28 8 $any_time 00001000 0 2H10 3 28 8 $any_time 00001000 0 2H11 }"
# setup_xfail "*"
# if {$n_marks == 2} {
......
......@@ -197,18 +197,17 @@ simple_expect "=5998 4"
send "5999 86 [holl "Jesting"] 1 { 0 5 } 0 { }\n"
simple_expect "=5999 5"
# FIXME: There's a memory leak in this call!!!
send "6000 92 4 0 { } 3 { 1006 00000000 0 [holl "T 1007 5"] 1006 00000000 0 [holl "C 1007 5"] 1006 00000000 0 [holl "I 1007 0"] }\n"
simple_expect "=6000"
send "6001 90 5\n"
simple_expect "=6001 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 1 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6001 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 1 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6002 91 5\n"
simple_expect "=6002 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 3 0 1 { 1 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6002 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 3 0 1 { 1 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6003 94\n"
simple_expect "=6003 $any_num $any_num $any_num $any_num $any_num $any_num 2 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6003 $any_num $any_num $any_num $any_num $any_num $any_num 2 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6100 88 [holl "C7"] 00000000 0 { }\n"
......@@ -226,13 +225,13 @@ send "6102 93 7 0 { } 3 { 1006 00000000 0 [holl "T 1007 5"] 1006 00000000 0 [hol
simple_expect "=6102"
send "6103 90 5\n"
simple_expect "=6103 $any_time 5 0 7 0 2 { 0 5 6 3 } 2 { 1 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 2 1007 0 $any_time 00000000 0 [holl "C 1006 7"] }"
simple_expect "=6103 $any_time 5 0 7 0 2 { 0 5 6 3 } 2 { 1 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 2 1007 5 $any_time 00000000 0 [holl "C 1006 7"] }"
send "6104 91 8\n"
simple_expect "=6104 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 1 { 1 1007 0 $any_time 00000000 0 [holl "C 1006 7"] }"
simple_expect "=6104 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 1 { 1 1007 5 $any_time 00000000 0 [holl "C 1006 7"] }"
send "6105 94\n"
simple_expect "=6105 $any_num $any_num $any_num $any_num $any_num $any_num 3 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 3 1007 0 $any_time 00000000 0 [holl "C 1006 7"] }"
simple_expect "=6105 $any_num $any_num $any_num $any_num $any_num $any_num 3 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 3 1007 5 $any_time 00000000 0 [holl "C 1006 7"] }"
# Create on info link to conf
......@@ -245,13 +244,13 @@ send "6106 95 0 { } 3 { 1006 00000000 0 [holl "T 1007 5"] 1006 00000000 0 [holl
simple_expect "=6106"
send "6107 90 5\n"
simple_expect "=6107 $any_time 5 0 7 0 2 { 0 5 6 3 } 3 { 1 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 2 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 3 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6107 $any_time 5 0 7 0 2 { 0 5 6 3 } 3 { 1 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 2 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 3 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6108 91 8\n"
simple_expect "=6108 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 2 { 1 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 2 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6108 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 2 { 1 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 2 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6109 94\n"
simple_expect "=6109 $any_num $any_num $any_num $any_num $any_num $any_num 7 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 3 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6109 $any_num $any_num $any_num $any_num $any_num $any_num 7 { 1 1004 5 $any_time 00000000 0 [holl "999"] 2 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 3 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
......@@ -261,13 +260,13 @@ send "6200 92 4 3 { 1 2 3 } 0 { }\n"
simple_expect "=6200"
send "6201 90 5\n"
simple_expect "=6201 $any_time 5 0 7 0 2 { 0 5 6 3 } 2 { 2 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 3 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6201 $any_time 5 0 7 0 2 { 0 5 6 3 } 2 { 2 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 3 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6202 91 5\n"
simple_expect "=6202 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 3 0 0 \\*"
send "6203 94\n"
simple_expect "=6203 $any_num $any_num $any_num $any_num $any_num $any_num 6 { 1 1004 5 $any_time 00000000 0 [holl "999"] 3 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6203 $any_num $any_num $any_num $any_num $any_num $any_num 6 { 1 1004 5 $any_time 00000000 0 [holl "999"] 3 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
# Delete manually created conf item
......@@ -276,13 +275,13 @@ send "6204 93 7 3 { 1 2 3 } 0 { }\n"
simple_expect "=6204"
send "6205 90 5\n"
simple_expect "=6205 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 3 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6205 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 3 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6206 91 8\n"
simple_expect "=6206 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 1 { 2 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6206 [holl "C8"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 1 { 2 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6207 94\n"
simple_expect "=6207 $any_num $any_num $any_num $any_num $any_num $any_num 5 { 1 1004 5 $any_time 00000000 0 [holl "999"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6207 $any_num $any_num $any_num $any_num $any_num $any_num 5 { 1 1004 5 $any_time 00000000 0 [holl "999"] 4 1006 5 $any_time 00000000 0 [holl "T 1007 5"] 5 1006 5 $any_time 00000000 0 [holl "C 1007 8"] 6 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 7 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
# Delete manually created info item
......@@ -312,7 +311,7 @@ simple_expect "=6213 $any_time 5 0 7 0 2 { 0 5 6 2 } 3 { 4 1006 5 $any_time 0000
send "6214 94\n"
simple_expect "=6214 $any_num $any_num $any_num $any_num $any_num $any_num 2 { 1 1004 5 $any_time 00000000 0 [holl "999"] 8 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6214 $any_num $any_num $any_num $any_num $any_num $any_num 2 { 1 1004 5 $any_time 00000000 0 [holl "999"] 8 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6215 95 1 { 8 } 0 { }\n"
simple_expect "=6215"
......@@ -327,7 +326,7 @@ simple_expect "=62160 $any_time 5 0 7 0 2 { 0 5 6 2 } 2 { 4 1006 5 $any_time 000
# Delete auto created conf item
send "6217 91 5\n"
simple_expect "=6217 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 3 0 1 { 2 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6217 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 3 0 1 { 2 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6218 93 5 1 { 2 } 0 { }\n"
simple_expect "=6218"
......@@ -342,7 +341,7 @@ simple_expect "=6220 $any_time 5 0 7 0 2 { 0 5 6 2 } 1 { 4 1006 5 $any_time 0000
# Delete auto created text item
send "6221 90 5\n"
simple_expect "=6221 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 4 1007 0 $any_time 00000000 0 [holl "T 1006 4"] }"
simple_expect "=6221 $any_time 5 0 7 0 2 { 0 5 6 3 } 1 { 4 1007 5 $any_time 00000000 0 [holl "T 1006 4"] }"
send "6222 92 5 1 { 4 } 0 { }\n"
simple_expect "=6222"
......@@ -380,13 +379,13 @@ simple_expect "=6302"
# Check the original data
send "6303 90 4\n"
simple_expect "=6303 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6303 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6304 91 7\n"
simple_expect "=6304 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6304 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6305 94\n"
simple_expect "=6305 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6305 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
......@@ -396,13 +395,13 @@ send "6307 92 4 5 { 7 8 9 10 11 } 1 { 1009 00000000 0 [holl "X"] }\n"
simple_expect "%6307 48 0"
send "6308 90 4\n"
simple_expect "=6308 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6308 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6309 91 7\n"
simple_expect "=6309 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6309 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6310 94\n"
simple_expect "=6310 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6310 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
# FIXME: Check all linked objects too
......@@ -410,26 +409,26 @@ send "6311 93 7 5 { 5 6 7 8 9 } 1 { 1009 00000000 0 [holl "X"] }\n"
simple_expect "%6311 48 0"
send "6312 90 4\n"
simple_expect "=6312 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6312 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6313 91 7\n"
simple_expect "=6313 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6313 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6314 94\n"
simple_expect "=6314 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6314 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6315 95 6 { 1 11 12 13 14 15 } 1 { 1009 00000000 0 [holl "X"] }\n"
simple_expect "%6315 48 0"
send "6316 90 4\n"
simple_expect "=6316 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6316 $any_time 5 0 7 0 2 { 0 5 6 2 } 8 { 7 2000 5 $any_time 00000000 0 [holl "A"] 8 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 9 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 10 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 11 1008 5 $any_time 00000000 0 [holl "X"] 12 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 13 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 14 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6317 91 7\n"
simple_expect "=6317 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6317 [holl "C7"] 00000000 $any_time $any_time 5 0 5 0 5 0 77 77 0 1 0 0 8 { 4 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 5 2000 5 $any_time 00000000 0 [holl "A"] 6 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 7 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 8 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 9 1008 5 $any_time 00000000 0 [holl "X"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
send "6318 94\n"
simple_expect "=6318 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 0 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 0 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 0 $any_time 00000000 0 [holl "I 1006 0"] }"
simple_expect "=6318 $any_num $any_num $any_num $any_num $any_num $any_num 9 { 1 1004 5 $any_time 00000000 0 [holl "999"] 9 1007 5 $any_time 00000000 0 [holl "T 1006 4"] 10 1007 5 $any_time 00000000 0 [holl "C 1006 7"] 11 2000 5 $any_time 00000000 0 [holl "A"] 12 1006 5 $any_time 00000000 0 [holl "T 1007 4"] 13 1006 5 $any_time 00000000 0 [holl "C 1007 7"] 14 1006 5 $any_time 00000000 0 [holl "I 1007 0"] 15 1008 5 $any_time 00000000 0 [holl "X"] 16 1007 5 $any_time 00000000 0 [holl "I 1006 0"] }"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment