2017-10-21 23:40:19 +00:00
|
|
|
/* Conformance Test 2.7.4.1: Test implementation of ORCA/C p-strings */
|
2022-10-17 22:50:42 +00:00
|
|
|
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
int printf(const char *, ...);
|
|
|
|
|
|
|
|
int main (void)
|
2017-10-21 23:40:19 +00:00
|
|
|
{
|
|
|
|
char a [300];
|
|
|
|
|
|
|
|
strcpy (a, "\pabc"); /* "abc" should be a p-string */
|
|
|
|
if (a[0] != 3)
|
|
|
|
goto Fail;
|
|
|
|
|
|
|
|
strcpy (a, "\pThis is a longer string than the last one...");
|
|
|
|
if (a[0] != 44)
|
|
|
|
goto Fail;
|
|
|
|
|
|
|
|
strcpy (a, "not a \p-string");
|
|
|
|
if ((strcmp (a, "not a p-string")) != 0)
|
|
|
|
goto Fail;
|
|
|
|
|
|
|
|
printf ("Passed Conformance Test 2.7.4.1\n");
|
2022-10-17 22:50:42 +00:00
|
|
|
return 0;
|
2017-10-21 23:40:19 +00:00
|
|
|
|
|
|
|
Fail:
|
|
|
|
printf ("Failed Conformance Test 2.7.4.1\n");
|
|
|
|
}
|