diff options
| author | Omar Rizwan <omar@omar.website> | 2023-02-27 08:12:58 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-02-27 08:12:58 +0000 |
| commit | 4b4c353bd12f03cc29cfd03c3f1364fcaadbda5d (patch) | |
| tree | 253ad2ecfb5a31cf1e97e287e2bb390deca3c8de /test | |
| parent | Implement and test findMatchesJoining (diff) | |
| download | folk-4b4c353bd12f03cc29cfd03c3f1364fcaadbda5d.tar.gz folk-4b4c353bd12f03cc29cfd03c3f1364fcaadbda5d.zip | |
Implement join reactions; joins test works
Refaactor claimizing patterns, might not work yet
Diffstat (limited to 'test')
| -rw-r--r-- | test/joins.tcl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/test/joins.tcl b/test/joins.tcl index 1483f6fa..f18b8832 100644 --- a/test/joins.tcl +++ b/test/joins.tcl @@ -23,9 +23,13 @@ set places [lmap m [Statements::findMatchesJoining \ {dict get $m place}] assert {$places eq {{New York} {Sesame Street}}} -# Assert when /x/ is a person & /x/ lives in /place/ { -# set ::foundX $x -# } -# Step +Assert when /x/ is a person & /x/ lives in /place/ { + set ::found$x $place +} +Assert Ash is a person +Assert Ash lives in "Pallet Town" +Step -# assert {$::foundX eq "Omar"} +assert {$::foundOmar eq "New York" && + $::foundElmo eq "Sesame Street" && + $::foundAsh eq "Pallet Town"} |