function pentomino_pack_test ( )

%*****************************************************************************80
%
%% PENTOMINO_PACK_TEST tests PENTOMINO_PACK.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    13 June 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'PENTOMINO_PACK_TEST\n' );
  fprintf ( 1, '  PENTOMINO_PACK packs all 12 pentominoes into an\n' );
  fprintf ( 1, '  MxNx12 array.\n' );

  m = 3;
  n = 5; 
  pack = pentomino_pack ( m, n );

  for k = 1 : 12
    name = pentomino_name ( k );
    label = sprintf ( '  Pentomino %d: "%s":', k, name );
    pentomino_print ( m, n, pack(:,:,k), label );
  end

  return
end
