anchor.diff:      (list alice bob))
     
     (nst:def-test mock-no-message (:values (:eq nil) (:eq nil))
  -    (unet-network:recv-datagram alice))
  +    (recv-datagram alice))
     
     (nst:def-test mock-single-message (:values (:equal "Hello")
                                                (:equal alice))
       (progn
  -      (unet-network:send-datagram alice "Hello" bob)
  -      (unet-network:recv-datagram bob)))
  +      (send-datagram alice "Hello" bob)
  +      (recv-datagram bob)))
     
     (nst:def-test mock-only-one-message (:values (:eq nil) (:eq nil))
       (progn
  -      (unet-network:send-datagram alice "Hello" bob)
  -      (unet-network:recv-datagram bob)
  -      (unet-network:recv-datagram bob)))
  +      (send-datagram alice "Hello" bob)
  +      (recv-datagram bob)
  +      (recv-datagram bob)))
     
     (nst:def-test mock-no-messages-after-close (:values (:eq nil) (:eq nil))
       (progn
  -      (unet-network:send-datagram alice "Hello" bob)
  -      (unet-network:close-socket bob)
  -      (unet-network:recv-datagram bob))))
  +      (send-datagram alice "Hello" bob)
  +      (close-socket bob)
  +      (recv-datagram bob))))
  
positive.code: (defpackage :unet-network-test
    (:use :cl))
  
  (in-package :unet-network-test)
  
  
negative.code:       unet-network:send-datagram
        unet-network:recv-datagram
        unet-network:close-socket)))
  
  
  (nst:def-test-group mock-existence-tests ()
    (nst:def-test network-mock-package-exists (:true)
  