blob: 8119b0393c147f7c902e83402bb6aa4a043ec385 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
// =============================================================================
// 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 -->
//===============================
str = "This is a simple string";
r = strstr (str,"simple");
if r <> 'simple string' then bugmes();quit;end;
//===============================
r = strstr (str,"sample");
if r <> '' then bugmes();quit;end;
//===============================
if strstr('','')<>'' then bugmes();quit;end;
//===============================
str1 ='1A2s 2';
str2 ='1B3sc2';
str3 ='1C4sci2';
STR = [str1;str2;str3];
r = strstr (STR,"s");
if r <> ['s 2';'sc2';'sci2'] then bugmes();quit;end;
//===============================
r = strstr (STR,'');
if r <> STR then bugmes();quit;end;
//===============================
r = strstr (STR,['A';'3';'i']);
if r <> ['A2s 2';'3sc2';'sci2'] then bugmes();quit;end;
//===============================
r = strstr (STR,['';'';'']);
if r <> STR then bugmes();quit;end;
//===============================
|
