From 18824ea7ebff5f72072c2de0dee9af0b6f086e1c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 20 Jul 2020 04:24:06 +0200 Subject: Remove badly written performance test. --- tests/stream-time.scm.disabled | 63 ------------------------------------------ 1 file changed, 63 deletions(-) delete mode 100644 tests/stream-time.scm.disabled diff --git a/tests/stream-time.scm.disabled b/tests/stream-time.scm.disabled deleted file mode 100644 index d604d0f4..00000000 --- a/tests/stream-time.scm.disabled +++ /dev/null @@ -1,63 +0,0 @@ -;;; Commentary: - -;; This is not really a test of calparse, but just some benchmarks on Guile's -;; built in SRFI-41 (stream) implementation. While running interactively the code -;; @lisp -;; (stream 1 2 3) -;; @end lisp -;; is extremely slow (0.5s). The problem however seems to go away during -;; compilation. Note however that -;; @lisp -;; (list->stream '(1 2 3)) -;; @end lisp -;; is fast in both cases. - -;;; Code: - -(use-modules (srfi srfi-19) ; Time - (srfi srfi-41) ; Streams - (srfi srfi-64) ; Tests - (srfi srfi-71) ; let-multiple - (ice-9 format)) - -;;; TODO use statprof insteadd - -(define (timed thunk) - "Returns two values, @var{result} and @var{time ellapsed}." - (let ((start-time (current-time time-process))) - (let ((result (thunk))) - (let ((end-time (current-time time-process))) - (values result - (time-difference end-time start-time)))))) - -(define-syntax-rule (with-printed-time port expr ...) - (let ((result duration (timed (lambda () expr ...)))) - (format port "~6f :: ~a~%" - (+ (time-second duration) - (/ (time-nanosecond duration) 1e5)) - (quote expr ...)))) - -(with-printed-time #t (stream 1 2 3 4 5)) -(with-printed-time #t (list->stream '(1 2 3 4 5))) -(with-printed-time #t (stream->list (list->stream '(1 2 3 4 5)))) -(with-printed-time - #t (stream-cons - 1 (stream-cons - 2 (stream-cons - 3 (stream-cons - 4 (stream-cons - 5 stream-null)))))) - -(display (make-string 60 #\-)) (newline) - -(eval-when (load) - (with-printed-time #t (stream 1 2 3 4 5)) - (with-printed-time #t (list->stream '(1 2 3 4 5))) - (with-printed-time #t (stream->list (list->stream '(1 2 3 4 5)))) - (with-printed-time - #t (stream-cons - 1 (stream-cons - 2 (stream-cons - 3 (stream-cons - 4 (stream-cons - 5 stream-null))))))) -- cgit v1.2.3