anchor.diff:      ].
   
   
  -test_poll_device_event( _Pid ) ->
  +test_poll_device_event( ok ) ->
       Tag = make_ref(),
       meck:expect( lurch_dev, request_event_async,
                    fun( _, _ ) -> { ok, Tag } end ),
  
positive.code: -ifdef( TEST ).
  -include_lib( "eunit/include/eunit.hrl" ).
  
  -define( setup( F ), { setup, fun test_start/0, fun test_stop/1, fun F/1 } ).
  
  -define( DRIVER_NAME, <<"dummy">> ).
  
  
negative.code:     Pid.
  
  
  setup_server_stop( Pid ) ->
      setup_meck_stop( ok ),
      stop( Pid ).
  
  
  setup_meck() ->
      meck:new( lurch_dev, [] ),
      ok.
  
  
  setup_meck_stop( ok ) ->
      meck:unload( lurch_dev ).
  
  
  
  % Actual tests
  