// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
//===============================
ierr = execstr('r = stripblanks(1);','errcatch');
if ierr <> 999 then bugmes();quit;end
//===============================
a = '  123   ';
r = stripblanks(a);
if ( r <> '123' ) then bugmes();quit;end
//===============================
b = '!'+ a +'!';
r = stripblanks(b);
if ( r <> b ) then bugmes();quit;end
//===============================
b = [];
r = stripblanks(b);
if ( r <> b ) then bugmes();quit;end
//===============================
a=['  123   ',' xyz'];
r = stripblanks(a);
if ( r <> ['123','xyz'] ) then bugmes();quit;end
//===============================
a=['',''];
r = stripblanks(a);
if ( r <> ['',''] ) then bugmes();quit;end
//===============================
a=' S C I L A B ';
r = stripblanks(a);
if ( r <> 'S C I L A B' ) then bugmes();quit;end
//===============================
TAB_CHAR = ascii(9);
//===============================
a = TAB_CHAR + '  123   ' + TAB_CHAR;
r = stripblanks(a,%T);
if ( r <> '123' ) then bugmes();quit;end
//===============================
r = stripblanks(a,%F);
if ( r <> a ) then bugmes();quit;end
//===============================
a=[TAB_CHAR + '  123   '+TAB_CHAR,' xyz'];
r = stripblanks(a);
if ( r <> [TAB_CHAR + '  123   '+TAB_CHAR,'xyz'] ) then bugmes();quit;end
//===============================
a=[TAB_CHAR + '  123   '+TAB_CHAR,' xyz'];
r = stripblanks(a,%F);
if ( r <> [TAB_CHAR + '  123   '+TAB_CHAR,'xyz'] ) then bugmes();quit;end
//===============================
a=[TAB_CHAR + '  123   '+TAB_CHAR,' xyz'];
r = stripblanks(a,%T);
if ( r <> [TAB_CHAR + '  123   '+TAB_CHAR,'xyz'] ) then bugmes();quit;end
//===============================
STRING = ' '+ascii(9)+' '+'S'+' '+ascii(9)+'C'+' '+ascii(9)+'I'+' '+ascii(9)+'L'+' '+ascii(9)+'A'+' '+ascii(9)+'B'+' '+ascii(9)+' ';
//===============================
R1 = ascii('!'+stripblanks(STRING,%T)+'!');
W1 = [33.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    33.]; 
if (R1 <> W1) then bugmes();quit;end
//===============================
R2 = ascii('!'+stripblanks(STRING,%F)+'!');
W2 = [33.    9.    32.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    32.    9.    33. ];
if (R2 <> W2) then bugmes();quit;end
// = strings with only blank character =========================================
if(stripblanks("")<>"")              then bugmes();quit;end
if(stripblanks(" ")<>"")             then bugmes();quit;end
if(stripblanks("      ")<>"")        then bugmes();quit;end
if(stripblanks("",%T)<>"")           then bugmes();quit;end
if(stripblanks(" ",%T)<>"")          then bugmes();quit;end
if(stripblanks("      ",%T)<>"")     then bugmes();quit;end
if(stripblanks(ascii(9))<>ascii(9))  then bugmes();quit;end
if(stripblanks(ascii(9),%T)<>"")     then bugmes();quit;end