import exercism/should
import exercism/test_runner
import robot_simulator.{East, North, Position, Robot, South, West}

pub fn main() {
  test_runner.main()
}

pub fn create_robot_at_origin_facing_north_test() {
  robot_simulator.create(North, Position(x: 0, y: 0))
  |> should.equal(Robot(North, Position(x: 0, y: 0)))
}

pub fn create_robot_at_negative_position_facing_south_test() {
  robot_simulator.create(South, Position(x: -1, y: -1))
  |> should.equal(Robot(South, Position(x: -1, y: -1)))
}

pub fn rotating_clockwise_changes_north_to_east_test() {
  robot_simulator.move(North, Position(x: 0, y: 0), "R")
  |> should.equal(Robot(East, Position(x: 0, y: 0)))
}

pub fn rotating_clockwise_changes_east_to_south_test() {
  robot_simulator.move(East, Position(x: 0, y: 0), "R")
  |> should.equal(Robot(South, Position(x: 0, y: 0)))
}

pub fn rotating_clockwise_changes_south_to_west_test() {
  robot_simulator.move(South, Position(x: 0, y: 0), "R")
  |> should.equal(Robot(West, Position(x: 0, y: 0)))
}

pub fn rotating_clockwise_changes_west_to_north_test() {
  robot_simulator.move(West, Position(x: 0, y: 0), "R")
  |> should.equal(Robot(North, Position(x: 0, y: 0)))
}

pub fn rotating_counter_clockwise_changes_north_to_west_test() {
  robot_simulator.move(North, Position(x: 0, y: 0), "L")
  |> should.equal(Robot(West, Position(x: 0, y: 0)))
}

pub fn rotating_counter_clockwise_changes_west_to_south_test() {
  robot_simulator.move(West, Position(x: 0, y: 0), "L")
  |> should.equal(Robot(South, Position(x: 0, y: 0)))
}

pub fn rotating_counter_clockwise_changes_south_to_east_test() {
  robot_simulator.move(South, Position(x: 0, y: 0), "L")
  |> should.equal(Robot(East, Position(x: 0, y: 0)))
}

pub fn rotating_counter_clockwise_changes_east_to_north_test() {
  robot_simulator.move(East, Position(x: 0, y: 0), "L")
  |> should.equal(Robot(North, Position(x: 0, y: 0)))
}

pub fn moving_forward_one_facing_north_increments_y_test() {
  robot_simulator.move(North, Position(x: 0, y: 0), "A")
  |> should.equal(Robot(North, Position(x: 0, y: 1)))
}

pub fn moving_forward_one_facing_south_decrements_y_test() {
  robot_simulator.move(South, Position(x: 0, y: 0), "A")
  |> should.equal(Robot(South, Position(x: 0, y: -1)))
}

pub fn moving_forward_one_facing_east_increments_x_test() {
  robot_simulator.move(East, Position(x: 0, y: 0), "A")
  |> should.equal(Robot(East, Position(x: 1, y: 0)))
}

pub fn moving_forward_one_facing_west_decrements_x_test() {
  robot_simulator.move(West, Position(x: 0, y: 0), "A")
  |> should.equal(Robot(West, Position(x: -1, y: 0)))
}

pub fn follow_series_of_instructions_moving_east_and_north_from_readme_test() {
  robot_simulator.move(North, Position(x: 7, y: 3), "RAALAL")
  |> should.equal(Robot(West, Position(x: 9, y: 4)))
}

pub fn follow_series_of_instructions_moving_west_and_north_test() {
  robot_simulator.move(North, Position(x: 0, y: 0), "LAAARALA")
  |> should.equal(Robot(West, Position(x: -4, y: 1)))
}

pub fn follow_series_of_instructions_moving_west_and_south_test() {
  robot_simulator.move(East, Position(x: 2, y: -7), "RRAAAAALA")
  |> should.equal(Robot(South, Position(x: -3, y: -8)))
}

pub fn follow_series_of_instructions_moving_east_and_north_test() {
  robot_simulator.move(South, Position(x: 8, y: 4), "LAAARRRALLLL")
  |> should.equal(Robot(North, Position(x: 11, y: 5)))
}