Pascal Tests

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3

1 files changed, 47 insertions, 0 deletions

diff --git a/misc/pascal/tests/src/202-strcmp.pas b/misc/pascal/tests/src/202-strcmp.pas
new file mode 100644
index 000000000..cff214403
--- /dev/null
+++ b/misc/pascal/tests/src/202-strcmp.pas
@@ -0,0 +1,47 @@
+PROGRAM stringops;
+CONST
+   lexbig     = 'zzzLexically Great';
+   lexmiddle1 = 'ZZZLexically Middle+';
+   lexmiddle  = 'ZZZLexically Middle';
+   lexmiddle2 = 'ZZZLexically Middl';
+   lexsmall   = 'AAALexically Small';
+   lexnothing = ''
+VAR 
+   string1, string2 : string;
+BEGIN
+   IF (lexbig <= lexmiddle) THEN
+      writeln('ERROR: ', lexbig, ' <= ', lexmiddle)
+   else
+      writeln('OKAY:  ', lexbig, ' > ', lexmiddle);
+
+   IF (lexmiddle > lexmiddle1) THEN
+      writeln('ERROR: ', lexmiddle, ' > ', lexmiddle1)
+   else
+      writeln('OKAY:  ', lexmiddle, ' <= ', lexmiddle1);
+      
+   IF (lexmiddle <> lexmiddle) THEN
+      writeln('ERROR: ', lexmiddle, ' <> ', lexmiddle)
+   else
+      writeln('OKAY:  ', lexmiddle, ' = ', lexmiddle);
+      
+   IF (lexmiddle = lexnothing) THEN
+      writeln('ERROR: ', lexmiddle, ' = ', lexnothing)
+   else
+      writeln('OKAY:  ', lexmiddle, ' <> ', lexnothing);
+      
+   IF (lexnothing <> lexnothing) THEN
+      writeln('ERROR: ', lexnothing, ' <> ', lexnothing)
+   else
+      writeln('OKAY:  ', lexnothing, ' = ', lexnothing);
+      
+   IF (lexmiddle < lexmiddle2) THEN
+      writeln('ERROR: ', lexmiddle, ' < ', lexmiddle2)
+   else
+      writeln('OKAY:  ', lexmiddle, ' >= ', lexmiddle2);
+
+   IF (lexsmall >= lexmiddle) THEN
+      writeln('ERROR: ', lexsmall, ' >= ', lexmiddle)
+   else
+      writeln('OKAY:  ', lexsmall, ' < ', lexmiddle)
+      
+END.