!7

p-exp {
  assertEqualsVerbose(litorderedmap("$x", "Federer", "$y", "someone"), matchDollarVarsIC_underscores("$x and $y play a game of...", "Federer and someone play a game of..."));

  assertEqualsVerbose(litmap("$bla", "hello"), matchDollarVarsIC_underscores("$bla", "hello"));
  assertEqualsVerbose(null, matchDollarVarsIC_underscores("$bla", "hello you"));
  assertEqualsVerbose(litmap("$bla_bla", "hello you"), matchDollarVarsIC_underscores("$bla_bla", "hello you"));
  assertEqualsVerbose(null, matchDollarVarsIC_underscores("$bla_bla", "hello"));
  assertEqualsVerbose(litmap("$bla", "hello"), matchDollarVarsIC_underscores("$_q_bla", quote("hello")));
  
  // ignoring word count for quoted vars
  assertEqualsVerbose(litmap("$bla_bla", "hello"), matchDollarVarsIC_underscores("$_q_bla_bla", quote("hello")));
  assertEqualsVerbose(litmap("$bla", "hello you"), matchDollarVarsIC_underscores("$_q_bla", quote("hello you")));
}