load test_helper

@test "float8 mode empty" {
  result="$(query "SELECT array_to_mode('{}'::double precision[])")";
  [ "$result" = "NULL" ]
}

@test "int16 mode one winner" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,0}'::smallint[])")";
  [ "$result" = "1" ]
}

@test "int32 mode one winner" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,0}'::integer[])")";
  [ "$result" = "1" ]
}

@test "int64 mode one winner" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,0}'::bigint[])")";
  [ "$result" = "1" ]
}

@test "float4 mode one winner" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,0}'::real[])")";
  [ "$result" = "1" ]
}

@test "float8 mode one winner" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,0}'::double precision[])")";
  [ "$result" = "1" ]
}

@test "int16 mode two winners" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,2,0}'::smallint[])")";
  [ "$result" = "1.5" ]
}

@test "int32 mode two winners" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,2,0}'::integer[])")";
  [ "$result" = "1.5" ]
}

@test "int64 mode two winners" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,2,0}'::bigint[])")";
  [ "$result" = "1.5" ]
}

@test "float4 mode two winners" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,2,0}'::real[])")";
  [ "$result" = "1.5" ]
}

@test "float8 mode two winners" {
  result="$(query "SELECT array_to_mode('{1,1,5,2,2,0}'::double precision[])")";
  [ "$result" = "1.5" ]
}

@test "string mode" {
  run query "SELECT array_to_mode('{1,1,5,2,0}'::text[])"
  [ "${lines[0]}" = "ERROR:  Mode subject must be SMALLINT, INTEGER, BIGINT, REAL, or DOUBLE PRECISION values" ]
}