mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 20:32:15 +00:00
22 lines
310 B
Fortran
22 lines
310 B
Fortran
|
|
|
|
|
|
|
|
|
|
|
|
program GildedRose_unity_test
|
|
use GildedRose
|
|
implicit none
|
|
type(Item):: it(1)
|
|
|
|
call init_item(it(1), "foo", 10, 20)
|
|
call update_quality(it, 1)
|
|
if (trim(it(1)%name) /= "fixMe" ) then
|
|
write(*,*) "ERRORUnity test Failed"
|
|
stop 1
|
|
else
|
|
write(*,*) "Unity test OK"
|
|
endif
|
|
|
|
end program
|