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