# Copyright 2005 Kevin Reid, under the terms of the MIT X license
# found at http://www.opensource.org/licenses/mit-license.html ................

  ? print("hi")
  # stdout: hi
  
  ? println("hi")
  # stdout: hi
  #         
  
  ? if (E.toQuote(updoc) !~ `<updoc runner for <file:@{_}updoc.updoc>>`) { [updoc] }

This should be successful:
  
  ? updoc.push(e`1 + 1`, [["value", "2"]])

This should fail:

  x ? updoc.push(e`1 + 1`, [["value", "You should see a failure report, expecting the value 2."]])


  ? "something after pushed tests"
  # value: "something after pushed tests"
  
---

waitAtTop / timing tests:

  ? print <- ("hello")
  # value: <Promise>
  
  # stdout: hello
  
  ? thunk { print <- ("world") } <- ()
  # value: <Promise>
    
  ? 1
  # stdout: world
  
  # value: 1
  
  ? interp.waitAtTop(thunk { print <- ("now") } <- ()); 2
  # value: 2
  
  # stdout: now
  
  ? 3
  # value: 3

Bug: promise for null not treated equivalently to null:

  ? def p; bind p := null; p