#1279. "А ваш язык так может?"

BOOLEAN VAR Condition

Condition := true

[
 1 2 3
 if Condition then
  4
 else
  5
] .equal [ 1 2 3 4 ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  4
 else
  5
] .not .equal [ 1 2 3 5 ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  4
 else
  5
] .equal [ 1 2 3 5 ] .fail 'Тест не пройден'

Condition := false

[
 1 2 3
 if Condition then
  4
 else
  5
] .equal [ 1 2 3 5 ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  4
 else
  5
] .not .equal [ 1 2 3 4 ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  4
 else
  5
] .equal [ 1 2 3 4 ] .fail 'Тест не пройден'

Condition := true

[
 1 2 3
 if Condition then
  [ 4 ]
 else
  [ 5 ]
] .equal [ 1 2 3 [ 4 ] ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  [ 4 ]
 else
  [ 5 ] 
] .not .equal [ 1 2 3 [ 5 ] ] .assure 'Тест не пройден'

[
 1 2 3
 if Condition then
  [ 4 ]
 else
  [ 5 ] 
] .equal [ 1 2 3 [ 5 ] ] .fail 'Тест не пройден'