!7

sS data = [[

== test 1 (input + statement)

  -- rule 1
  
  who is x y        [input]
  + x y is a trader [statement]
  => a trader

  -- test input
  
  john doe is a guy
  who is john doe?
  
  -- expected output
  
  a guy
  
== test 2 (self-variable bug)

  -- rule 1
  
  who is a trader   [input]
  + x y is a trader [statement]
  => x y

  -- test input
  
  john doe is a trader
  alfred hitchcock is a director
  who is a director?
  
  -- expected output
  
  alfred hitchcock
  
== test 3 (multiple input lines)

  -- rule 1
  
  !eval countSheep() [input]
  + 55               [input]
  => there are 55 sheep

  -- test input
  
  !eval countSheep()
  77

  -- expected output
  
  there are 77 sheep

== test 4 (same, without marking conditions as "input")

  -- rule 1
  
  !eval countSheep()
  + 55
  => there are 55 sheep

  -- test input
  
  !eval countSheep()
  77

  -- expected output
  
  there are 77 sheep

== test 5 (default answers)

  -- rule 1
  
  is black the opposite of white
  + black is the opposite of white [statement]
  => yes
  [don't change "is"]
  
  -- rule 2
  
  is black the opposite of white
  => no
  [default]
  [don't change "is"]
  
  -- test input 1
  
  bright is the opposite of dark
  is bright the opposite of dark?

  -- expected output 1
  
  yes
  
  -- test input 2
  
  bright is the opposite of dark
  is blue the opposite of dark?

  -- expected output 2
  
  no

== test 6    

  -- rule
  
  {sad ugo} says: <anything>
  => ugo is sad today [temporary fact]
  [split "sad ugo"]

  -- test input 1
  
  [happy johnny] bla bla

  -- expected temporary facts 1
  
  johnny is happy today
  
  -- test input 2
  
  [sad ugo] bla bla

  -- expected temporary facts 2
  
  ugo is sad today

== test 7

  -- rule
  
  what is google
  + google is a company [statement]
  => a company, my friend

  -- test input
  
  john is a guy
  google is a company
  what is google

  -- expected output
  
  a company, my friend
  
== test 8 (rule with 3 input lines)
  
  -- rule
  
  turn it around, dummie!
  + her
  + not it
  => turn her around, dummie!
  
  -- test input
  
  turn it around, dummie!
  her
  not it
  
  -- expected output
  
  turn her around, dummie!
  
== test 9 (simplify rule)

  -- rule
  
  simplify with reversed
  [only answer to human]
  
  -- test input
  
  hello
  
  -- expected output
  
  olleh
  
]];

!include once #1021761 // Gazelle Fakery
 
p-exp {
  gazelle_performMultipleTests(data, humanOnlyDebug := true);
}