Filename = 'foo'

  -- change is saved
  Lines = load_from_disk(Filename)
  local p2 = Lines[1].points[drawing.shapes[1].p2]
  check_eq(p2.name, 'A', 'F - test_name_point/save')

  Filename = 'foo'

  -- line is saved to disk
  Lines = load_from_disk(Filename)
  local drawing = Lines[1]
  local p2 = Lines[1].points[drawing.shapes[1].p2]
  check_eq(p2.x, 35, 'F - test_move_point/save/x')
  check_eq(p2.y, 36, 'F - test_move_point/save/y')
  App.draw()

  -- change is saved
  Lines = load_from_disk(Filename)
  local p2 = Lines[1].points[drawing.shapes[1].p2]
  check_eq(p2.x, 26, 'F - test_move_point/save/x')
  check_eq(p2.y, 44, 'F - test_move_point/save/y')

  Filename = 'foo'

  -- deleted points disappear after file is reloaded
  Lines = load_from_disk(Filename)
  check_eq(#Lines[1].shapes, 0, 'F - test_delete_lines_at_point/save')

persistence:
  select a point and name it, quit, restart. Name is still visible.