Commit 0db65707 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Don't forget the flags argument to create-person.

parent 4affe7c8
......@@ -5,14 +5,14 @@ source "$srcdir/config/leaks.exp"
# Test for leaks in person creation
startup_leaks
send "3000 89 [holl "Leaky Memory 3000"] [holl "wossit"] 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
send "3000 89 [holl "Leaky Memory 3000"] [holl "wossit"] 00000000 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
simple_expect "=3000 6"
shutdown_leaks
read_usage_base
startup_leaks
for { set i 0 } { $i < 200 } { incr i 1 } {
send "[expr 3000 + $i] 89 [holl "Leaky Memory [expr 3000 + $i]"] [holl "wossit"] 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
send "[expr 3000 + $i] 89 [holl "Leaky Memory [expr 3000 + $i]"] [holl "wossit"] 00000000 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
simple_expect "=[expr 3000 + $i] [expr 6 + $i]"
}
shutdown_leaks
......
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