{"size": 677, "ext": "rktl", "max_stars_repo_path": "pkgs/racket-test-core/tests/racket/linklet.rktl", "max_stars_repo_name": "lkh01/racket", "max_stars_repo_stars_event_min_datetime": "2018-07-05T21:18:24.000Z", "max_stars_repo_stars_event_max_datetime": "2021-06-04T14:48:37.000Z", "max_issues_repo_path": "pkgs/racket-test-core/tests/racket/linklet.rktl", "max_issues_repo_name": "lkh01/racket", "max_issues_repo_issues_event_min_datetime": "2017-05-10T07:33:20.000Z", "max_issues_repo_issues_event_max_datetime": "2018-07-19T15:49:46.000Z", "max_forks_repo_path": "pkgs/racket-test-core/tests/racket/linklet.rktl", "max_forks_repo_name": "lkh01/racket", "max_forks_repo_forks_event_min_datetime": "2016-04-25T11:47:57.000Z", "max_forks_repo_forks_event_max_datetime": "2017-05-09T14:52:48.000Z"}
{"max_stars_count": 4, "max_issues_count": 9, "max_forks_count": 3, "avg_line_length": 25.0740740741, "max_line_length": 64, "alphanum_fraction": 0.4726735598}

(load-relative "loadtest.rktl")

(Section 'linklet)

(require racket/linklet)

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(let ()
  (define l (compile-linklet '(linklet
                                  ()
                                  ()
                                4)))
  (test #t linklet? l)
  (test #t instance? (instantiate-linklet l '()))
  (test 4 instantiate-linklet l '() (make-instance 'l))

  (err/rt-test (instantiate-linklet l) exn:fail:contract:arity?)
  (err/rt-test (instantiate-linklet l '#()))
  (err/rt-test (instantiate-linklet l (list 5)))
  (err/rt-test (instantiate-linklet l '() 5)))

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(report-errs)
