sugar/tests/004.exp

#!/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