mirror of https://github.com/ANL-CEEESA/RELOG.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
1.2 KiB
29 lines
1.2 KiB
# 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
|