% ClipTest
%
% Test clipboard text routines.

% 7/27/97  dhb  Wrote it.
% 4/24/02   awi Exit on PC with message.

if strcmp('PCWIN',computer)
    error('Win: ClipTest not yet supported');
end


aMatrix = [1 2 3 ; 4 5 6];
CopyText(aMatrix);
bMatrix = PasteText;
fprintf('Max error between copy and paste: %g\n',abs(max(max(aMatrix-bMatrix))));
