anchor.diff:  Pipe!delete 'mypipe'
   assert (equal? (Pipe!list) nil)
   
  -
  +#
   # share a text line using a pipe between this task and a reading task    
  +#
   define shared (Pipe!open 'shared-pipe')
   spawn 'testscripts/pipe-reader.g' 'shared-pipe'
   define out
  
positive.code:            (equal? (task.name) name)
                 u:format "killing %s\n" task
                 task(.kill)
  
  # Write and read within the same task:
  define apipe (Pipe!open 'mypipe')
  Pipe!list
  define out
  
negative.code: out(.format 'Hello from the first task\n')
  
  
  #
  # single reader, multiple writers - scrambled together at reader since no synchronisation
  #
  define shared (Pipe!open 'shared-pipe2')
  for i in (range 0 5)
      spawn 'testscripts/pipe-writer.g' 'shared-pipe2'
  