!7

sS data = [[

  == test 1
  
    -- 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
  
    -- 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
  
]];

!include once #1021761 // Gazelle Fakery
 
p-exp {
  SS tests = equalsSignsSections(data);
  for (S name, test : tests) {
    printAsciiHeading(upper(name));
    gazelle_fakery_performTest(test);
  }
  print("\n" + n2(tests, "test") + " OK!");
}