X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=test%2Ftestscanw.c;fp=test%2Ftestscanw.c;h=8420ea0fc55a1f925c40f160779290a3449c2bab;hb=661078ddbde3ce0f3b06e95642fbb9b5fef7dca1;hp=0000000000000000000000000000000000000000;hpb=3a9b6a3bf0269231bef7de74757a910dedd04e0c;p=ncurses.git

diff --git a/test/testscanw.c b/test/testscanw.c
new file mode 100644
index 00000000..8420ea0f
--- /dev/null
+++ b/test/testscanw.c
@@ -0,0 +1,38 @@
+/* gleaned from a web-search, shows a bug combining scanw and implicit scroll.
+ * Date:  1997/03/17
+ * From:  bayern@morpheus.cis.yale.edu
+ *
+ * $Id: testscanw.c,v 1.5 1997/09/20 14:16:20 tom Exp $
+ */
+#include <test.priv.h>
+#include <ctype.h>
+
+int main(int argc, char *argv[])
+{
+	long badanswer = 1;
+	long *response = &badanswer;
+
+	initscr();
+	scrollok(stdscr, TRUE);
+	idlok(stdscr, TRUE);
+	echo();
+
+#if 0
+	trace(TRACE_UPDATE|TRACE_CALLS);
+#endif
+	while (argc > 1) {
+		if (isdigit(*argv[1]))
+			move(atoi(argv[1]), 0);
+		else if (!strcmp(argv[1], "-k"))
+			keypad(stdscr, TRUE);
+		argc--, argv++;
+	}
+
+	while (badanswer) {
+		printw("Enter a number (0 to quit):\n");
+		printw("--> ");
+		scanw("%20ld", response);    /* yes, it's a pointer */
+	}
+	endwin();
+	return EXIT_SUCCESS;
+}