From 11b929c5e59bff3d576a49db0a9fcfacea9741fb Mon Sep 17 00:00:00 2001
From: "Peter M. Clausen" <petermichaelclausen@gmail.com>
Date: Wed, 26 May 2021 21:45:07 +0200
Subject: [PATCH] Adding missing call to update_quality in
 GildedRose_unity_test

---
 fortran/test/GildedRose_unity_test.f90 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/fortran/test/GildedRose_unity_test.f90 b/fortran/test/GildedRose_unity_test.f90
index bbafc7bd..82032a67 100644
--- a/fortran/test/GildedRose_unity_test.f90
+++ b/fortran/test/GildedRose_unity_test.f90
@@ -4,13 +4,14 @@
 
 
 
-program GildedRose_texttest
+program GildedRose_unity_test
   use GildedRose
   implicit none
-  type(Item) :: it
+  type(Item):: it(1)
 
-  call init_item(it, "foo", 10, 20)
-  if (trim(it%name) /= "fixMe" ) then
+  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