# RELOG: Reverse Logistics Optimization
# Copyright (C) 2020, UChicago Argonne, LLC. All rights reserved.
# Released under the modified BSD license. See COPYING.md for more details.

using RELOG, JSON, GZip

load_json_gz(filename) = JSON.parse(GZip.gzopen(filename))

function check(func, expected_csv_filename::String)
    solution = load_json_gz("fixtures/nimh_solution.json.gz")
    actual_csv_filename = tempname()
    func(solution, actual_csv_filename)
    @test isfile(actual_csv_filename)
    if readlines(actual_csv_filename) != readlines(expected_csv_filename)
        out_filename = replace(expected_csv_filename, ".csv" => "_actual.csv")
        @error "$func: Unexpected CSV contents: $out_filename"
        write(out_filename, read(actual_csv_filename))
        @test false
    end
end

@testset "Reports" begin
    check(RELOG.write_plants_report, "fixtures/nimh_plants.csv")
    check(RELOG.write_plant_outputs_report, "fixtures/nimh_plant_outputs.csv")
    check(RELOG.write_plant_emissions_report, "fixtures/nimh_plant_emissions.csv")
    check(RELOG.write_transportation_report, "fixtures/nimh_transportation.csv")
    check(RELOG.write_transportation_emissions_report, "fixtures/nimh_transportation_emissions.csv")
end