anchor.diff:  
       filename = "data.txt"
   
  -    ! Test 1
  -    
  -    qIt = (/10, 0, 0, 0/)
  -    
  -    call createFiles(it, nit, cont, 1, qIt)
  +    qIt = (/10, 0, 20, 30/)
  +    
  +    call createFiles(it, nit, cont, ncont, qIt)
       
       call loadData(filename)
  -    
  -
  -    call assert_equals(1, nContainers)
  -
  -    call setCurrContainer(1)
  -
  -    call assert_equals(cont(1)%length, cLength)
  -
  -    call assert_equals(cont(1)%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
  -
  -    ! Test 2
  -
  -    call shutdown()
  -    
  -    qIt = (/10, 0, 20, 30/)
  -    
  -    call createFiles(it, nit, cont, ncont, qIt)
  -    
  -    call loadData(filename)
  -
   
       call assert_equals(ncont, nContainers)
   
  -    prevCArea = 0.0D0
  +    equal = 0
  +
  +    diffe = 0
       
       do i = 1, ncont
   
          call setCurrContainer(i)
  -       
  -       currCArea = cLength * cWidth
  -       
  -       call assert_true( prevCArea .le. currCArea )
  -
  -       prevCArea = currCArea
  -
  -    end do    
  +
  +       do j = 1, ncont
  +
  +          if ( cLength .eq. cont(j)%length .and. &
  +               cWidth .eq. cont(j)%width ) then
  +
  +             equal = equal + 1
  +
  +          else
  +
  +             diffe = diffe + 1
  +
  +          end if
  +
  +       end do
  +       
  +    end do
  +
  +    call assert_equals(3, equal, "Containers' dimensions incorrect")
  +
  +    call assert_equals(6, diffe, "Containers' dimensions incorrect")
   
       totalIt = sum(qIt)
   
  
positive.code: 
      type(Container) :: cont(ncont)
      
      do i = 1, nit
  
         it(i) = ItemType(i, 17, 10.0D0 + i, 20.0D0 + i)
  
negative.code: 
      close(98)
  
      ! Generate containers
      
      open(99, FILE = "containers.txt")
  
  