;; -*-theme-d-*-

;; Copyright (C) 2016-2018 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK

(define-proper-program (tests test388)

  (import (standard-library core)
	  (standard-library string-utilities)
	  (standard-library console-io))

  (define-simple-proc main (() <none> nonpure)
    (let ((str1 (string-take "abcdefg" 3))
	  (str2 (string-drop "abcdefg" 3))
	  (str3 (string-take "abcd" 1))
	  (str4 (string-drop "abcd" 1))
	  (str5 (string-take-right "abcdefg" 3))
	  (str6 (string-drop-right "abcdefg" 3))
	  (i1 (search-substring "abcdefg" "def"))
	  (i2 (search-substring "abcdefg" "dfg"))
	  (i3 (search-substring-from-end "abcdefg" "fg"))
	  (i4 (search-substring-from-end "abcdefg" "gf")))
      (console-display-line str1)
      (console-display-line str2)
      (console-display-line str3)
      (console-display-line str4)
      (console-display-line str5)
      (console-display-line str6)
      (console-display-line i1)
      (console-display-line i2)
      (console-display-line i3)
      (console-display-line i4))))

