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

privilegedScope

  ? privilegedScope["println"]
  # value: <println>

<unsafe>

  ? <unsafe>
  # value: <unsafe:*>
  
  ? <unsafe:org.example.nonexistent>
  # problem: <unsafe:*> can't find "org.example.nonexistent"

DeepFrozenStamp
  
  ? DeepFrozenStamp
  # value: <DeepFrozenStamp>
  
  ? DeepFrozenStamp :DeepFrozen
  # value: <DeepFrozenStamp>
  
SelflessStamp

  ? SelflessStamp
  # value: <SelflessStamp>

  ? def makeCell(arg) :any { 
  >   return def cell implements SelflessStamp {
  >     to __optUncall() :any { return [makeCell, "run", [arg]] }
  >     to run() :any { return arg }
  >   }
  > }
  # value: <makeCell>
  
  ? def ss_a := makeCell("a")
  # value: <cell>

  ? def ss_aa := makeCell("a")
  # value: <cell>
  
  ? ss_a == ss_aa
  # value: true
  
  ? ss_a == makeCell("b")
  # value: false

 Check that Equalizer can handle recursive == due to uncall properly
 
  ? def makeCell2(option) :any { 
  >   def value := option.pick(1, 0)
  >   return def cell implements SelflessStamp {
  >     to __optUncall() :any { return [makeCell2, "run", [value == 1]] }
  >     to run() :any { return value }
  >   }
  > }
  # value: <makeCell2>

  ? makeCell2(true) == makeCell2(true)
  # value: true

  ? makeCell2(true) == makeCell2(false)
  # value: false

interp

  XXX testing interp here isn't very useful since it's (currently) an updoc-specific interp implementation

  ? interp
  # value: <updocInterp>
  
  XXX more specific tests
  ? interp.getProps() :Map; null

rune

  ? rune; null
  x # value: <rune>