mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 12:22:12 +00:00
Adding missing call to update_quality in GildedRose_unity_test
This commit is contained in:
parent
7dca97198a
commit
11b929c5e5
@ -4,13 +4,14 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
program GildedRose_texttest
|
program GildedRose_unity_test
|
||||||
use GildedRose
|
use GildedRose
|
||||||
implicit none
|
implicit none
|
||||||
type(Item) :: it
|
type(Item):: it(1)
|
||||||
|
|
||||||
call init_item(it, "foo", 10, 20)
|
call init_item(it(1), "foo", 10, 20)
|
||||||
if (trim(it%name) /= "fixMe" ) then
|
call update_quality(it, 1)
|
||||||
|
if (trim(it(1)%name) /= "fixMe" ) then
|
||||||
write(*,*) "ERRORUnity test Failed"
|
write(*,*) "ERRORUnity test Failed"
|
||||||
stop 1
|
stop 1
|
||||||
else
|
else
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user