Adding missing call to update_quality in GildedRose_unity_test

This commit is contained in:
Peter M. Clausen 2021-05-26 21:45:07 +02:00
parent 7dca97198a
commit 11b929c5e5

View File

@ -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