anchor.diff:  
          end do
   
  -       call assert_equals(qIt(i), countType)
  +       call assert_equals(qIt(i), countType, "Wrong number of items")
   
       end do
             
  -
  -  end subroutine test_load_data
  +  end subroutine test_load_data_many
   
   end module packdat_test
  
positive.code: 
      real(8) :: typ
  
      ! Generate random items
      
      open(99, FILE = "items.txt")
  
  
negative.code: 
      implicit none
  
      integer, parameter :: nit = 4, ncont = 1
      
      character(80) :: filename
  
      integer :: i, j, totalIt, countType
  
      real(8) :: prevCArea, currCArea
      
      integer :: qIt(4)
  
      type(ItemType) :: it(nit)
  
      type(Container) :: cont(ncont)
      
      call reset()
  
      do i = 1, nit
  
         it(i) = ItemType(i, 17, 10.0D0 + i, 20.0D0 + i)
  
      end do
  
      do i = 1, ncont
  
         cont(i) = emptyContainer(i, 100.0D0 + i, 200.0D0 - 2 * i)
  
      end do
  
      filename = "data.txt"
  
      ! Test 1
      
      qIt = (/10, 0, 0, 0/)
      
      call createFiles(it, nit, cont, ncont, qIt)
      
      call loadData(filename)
      
  
      call assert_equals(ncont, nContainers)
  
      call setCurrContainer(ncont)
  
      call assert_equals(cont(ncont)%length, cLength)
  
      call assert_equals(cont(ncont)%width, cWidth)
      
  
      totalIt = sum(qIt)
      
      call assert_equals(totalIt, nTItems)
  
      call assert_equals(nItems, nTItems)
  
      call assert_equals(totalIt, size(iLength))
  
      call assert_equals(totalIt, size(iWidth))
  
      call assert_equals(totalIt, size(iId))
      
      do i = 1, totalIt
  
         call assert_equals(it(1)%length, iLength(i))
  
         call assert_equals(it(1)%width, iWidth(i))
  
         call assert_equals(it(1)%class, iId(i))
  
      end do
            
    end subroutine test_load_data_single
  
  ! ******************************************************************
  ! ******************************************************************
  
    subroutine test_load_data_many
  
      use packdat, only : loadData, nTItems, nItems, iLength, &
           iWidth, iId, nContainers, setCurrContainer, cLength, &
           cWidth, cId, reset
  
      use items, only : ItemType
  
      use containers, only : Container, emptyContainer
  
      implicit none
  
      integer, parameter :: nit = 4, ncont = 3
      
      character(80) :: filename
  
      integer :: i, j, totalIt, countType, equal, diffe
  
      real(8) :: prevCArea, currCArea
      
  