Du kannst nicht mehr als 25 Themen auswählen
Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
104 Zeilen
2.7 KiB
104 Zeilen
2.7 KiB
#!/usr/bin/expect
|
|
|
|
set SUGAR_EXECUTABLE $::env(SUGAR_EXECUTABLE)
|
|
|
|
proc abort {reason} {
|
|
puts "test failed $reason"
|
|
exit 1
|
|
}
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-01.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-01" }
|
|
Procedure-Name
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-02.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-02" }
|
|
__--__
|
|
}
|
|
expect {
|
|
eof { abort "should display failure procedure" }
|
|
main
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-03.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-03" }
|
|
{Expected Procedure-Argument-List to end}
|
|
}
|
|
expect {
|
|
eof { abort "should display failure line" }
|
|
{incomplete-03.mol:2}
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-04.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-04" }
|
|
{Expected Procedure-Argument-List to be followed by a return list or a __DO__}
|
|
}
|
|
expect {
|
|
eof { abort "should display failure line" }
|
|
{incomplete-04.mol:3}
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-05.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-05" }
|
|
{Expected Procedure-Return-List to end}
|
|
}
|
|
expect {
|
|
eof { abort "should display failure line" }
|
|
{incomplete-05.mol:4}
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-06.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-06" }
|
|
{Expected __DO__ block needs a matching __END__}
|
|
}
|
|
expect {
|
|
eof { abort "should display failure line" }
|
|
{incomplete-06.mol:5}
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-07.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure line" }
|
|
{incomplete-07.mol:2}
|
|
}
|
|
expect {
|
|
eof { abort "should display failure in incomplete-07" }
|
|
{Expected __PROC__}
|
|
}
|
|
expect eof
|
|
|
|
### ------------------------------------------------------------------
|
|
|
|
spawn -noecho $SUGAR_EXECUTABLE tests/004/incomplete-08.mol lex parse
|
|
expect {
|
|
eof { abort "should display failure in incomplete-08" }
|
|
{return stack}
|
|
}
|
|
expect eof
|