Commit 4f51d0e5 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Use bignum to find a suitable big number.

parent ca6ba572
...@@ -35,6 +35,8 @@ ...@@ -35,6 +35,8 @@
source "$srcdir/config/prot-a.exp" source "$srcdir/config/prot-a.exp"
read_versions read_versions
set bignum [exec ./bignum]
proc protocol_error {} { proc protocol_error {} {
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
} }
...@@ -72,7 +74,7 @@ protocol_error ...@@ -72,7 +74,7 @@ protocol_error
send "1000 80 -1 { 1 }\n" send "1000 80 -1 { 1 }\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "1000 80 3000000000 { 1 }\n" send "1000 80 $bignum { 1 }\n"
simple_expect "%%Insane array size." simple_expect "%%Insane array size."
client_death 0 client_death 0
...@@ -144,7 +146,7 @@ protocol_error ...@@ -144,7 +146,7 @@ protocol_error
send "1012 62 5 -6Hgazonk 0\n" send "1012 62 5 -6Hgazonk 0\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "1012 62 5 3000000000Hgazonk 0\n" send "1012 62 5 ${bignum}Hgazonk 0\n"
simple_expect "%%Insane string length." simple_expect "%%Insane string length."
client_death 0 client_death 0
...@@ -198,7 +200,7 @@ protocol_error ...@@ -198,7 +200,7 @@ protocol_error
send "1019 86 [holl "Text"] 0 { } -1 { 1 00000000 0 [holl "A"] }\n" send "1019 86 [holl "Text"] 0 { } -1 { 1 00000000 0 [holl "A"] }\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "1019 86 [holl "Text"] 0 { } 3000000000 { 1 00000000 0 [holl "A"] }\n" send "1019 86 [holl "Text"] 0 { } ${bignum} { 1 00000000 0 [holl "A"] }\n"
simple_expect "%%Insane array size." simple_expect "%%Insane array size."
client_death 0 client_death 0
client_start 0 client_start 0
...@@ -386,7 +388,7 @@ kom_accept_async "0 { }" ...@@ -386,7 +388,7 @@ kom_accept_async "0 { }"
send "2007 89 [holl "PP"] [holl "PW"] 0 -1 { }\n" send "2007 89 [holl "PP"] [holl "PW"] 0 -1 { }\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "2007 89 [holl "PP"] [holl "PW"] 0 3000000000 { }\n" send "2007 89 [holl "PP"] [holl "PW"] 0 ${bignum} { }\n"
simple_expect "%%Insane array size." simple_expect "%%Insane array size."
client_death 0 client_death 0
client_start 0 client_start 0
...@@ -396,7 +398,7 @@ kom_accept_async "0 { }" ...@@ -396,7 +398,7 @@ kom_accept_async "0 { }"
send "2008 92 1 -1 { } 0 { }\n" send "2008 92 1 -1 { } 0 { }\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "2008 92 1 3000000000 { } 0 { }\n" send "2008 92 1 ${bignum} { } 0 { }\n"
simple_expect "%%Insane array size." simple_expect "%%Insane array size."
client_death 0 client_death 0
client_start 0 client_start 0
...@@ -406,7 +408,7 @@ kom_accept_async "0 { }" ...@@ -406,7 +408,7 @@ kom_accept_async "0 { }"
send "2009 93 1 -1 { } 0 { }\n" send "2009 93 1 -1 { } 0 { }\n"
simple_expect "%% LysKOM protocol error." simple_expect "%% LysKOM protocol error."
send "2009 93 1 30000000000 { } 0 { }\n" send "2009 93 1 ${bignum} { } 0 { }\n"
simple_expect "%%Insane array size." simple_expect "%%Insane array size."
client_death 0 client_death 0
client_start 0 client_start 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