function TestInArea()
  -- Define area as N49, 37', 40"/W2,32',20"  x  N49,24',30/W2,18',40"
  --Enter the RP Names below
  local mrp1 = 'RP-6380'
  local mrp2 = 'RP-6381'
  local mrp3 = 'RP-6382'
  local mrp4 = 'RP-6383'

  local nameRp1 = 'PortsInAreaA' -- 'RP-999100'
  local nameRp2 = 'PortsInAreaB' -- 'RP-999101'
  local nameRp3 = 'PortsInAreaC' -- 'RP-999102'
  local nameRp4 = 'PortsInAreaD' -- 'RP-999103'
  mimicmanualnames = false
  if mimicmanualnames then
      nameRp1 = 'RP-9100'
      nameRp2 = 'RP-9101'
      nameRp3 = 'RP-9102'
      nameRp4 = 'RP-9103'
   end
  --PortsInAreaA
  --setup
  testside = VP_GetSides ()[1].name
  local port = { name = 'Saint Sampson', shore = { latitude = 49.483063014392, longitude = -2.4516231803573 }, harbor = { latitude = 49.517535014333, longitude = -2.4226977379214 }, country = 'Guernsey' } 
  local retval,shipT = pcall(ScenEdit_AddUnit,{type ='Ship', unitname =port.name .. " Buoy", dbid=347, side =VP_GetSides ()[1].name, Lat=port.harbor.latitude,Lon=port.harbor.longitude}) ;
  local testship
  if not retval or shipT ~= nil then
      testship = ScenEdit_GetUnit({name=shipT.name , guid=shipT.guid});
  end
  size = 1
  local rp1=ScenEdit_AddReferencePoint( {side=testside, name=nameRp1, lat=testship.latitude + (size/10), lon=testship.longitude + (size/10), highlighted=true})
  local rp2=ScenEdit_AddReferencePoint( {side=testside, name=nameRp2, lat=testship.latitude + (size/10), lon=testship.longitude - (size/10), highlighted=true})
  local rp3=ScenEdit_AddReferencePoint( {side=testside, name=nameRp3, lat=testship.latitude - (size/10), lon=testship.longitude + (size/10), highlighted=true})
  local rp4=ScenEdit_AddReferencePoint( {side=testside, name=nameRp4, lat=testship.latitude - (size/10), lon=testship.longitude - (size/10), highlighted=true})
  -- test
  if testship ~= nil then
    t = testship:inArea({'RP-6380','RP-6381','RP-6382','RP-6383'})
    t = testship:inArea({mrp1,mrp2,mrp3,mrp4})
    print("Manual RPs tested testship:inArea({'" .. mrp1 .. "','" .. mrp2 .. "','" .. mrp3 .. "','" .. mrp4 .. "'}) match:")
    print(t)
    t = testship:inArea({nameRp1,nameRp1,nameRp1,nameRp1})
    print("Lua based RPs ceated using ScenEdit_AddReferencePoint tested testship:inArea({'" .. nameRp1 .. "','" .. nameRp2 .. "','" .. nameRp3 .. "','" .. nameRp4 .. "'}) match:")
    print(t)
    t = testship:inArea({rp1.name,rp2.name,rp3.name,rp4.name})
    print("Lua based RPs ceated using ScenEdit_AddReferencePoint tested testship:inArea({rp1.name,rp2.name,rp3.name,rp4.name}) match:")
    print(t)
    t = testship:inArea({rp1.guid,rp2.guid,rp3.guid,rp4.guid})
    print("Lua based RPs ceated using ScenEdit_AddReferencePoint tested testship:inArea({rp1.guid,rp2.guid,rp3.guid,rp4.guid}) match:")
    print(t)
    
  end
  -- cleanup
  strnum = ScenEdit_InputBox ('pause before cleanup')
  if testship ~= nil and testship:delete() then end    
  ScenEdit_DeleteReferencePoint ({side=testside, guid=rp1.guid})
  ScenEdit_DeleteReferencePoint ({side=testside, guid=rp2.guid})
  ScenEdit_DeleteReferencePoint ({side=testside, guid=rp3.guid})
  ScenEdit_DeleteReferencePoint ({side=testside, guid=rp4.guid})
end
TestInArea()