小编use*_*437的帖子

我正在使用TAP :: Harness运行我的测试,当我在Linux系统上从命令行运行测试时,我在STDOUT上运行测试结果,但是当我尝试将输出捕获到文件以及使用STDOUT时perl harness.pl | tee out.tap结果被缓冲并仅在最后显示,我尝试将文件句柄传递给新的但是结果在写入文件之前仍然被缓冲,有没有办法不缓冲输出,我有一个长期运行的套件,并希望在测试运行时查看结果以及捕获输出.

TAP :: Harness版本3.22和perl版本5.8.8

这是示例代码harness.pl

#!/usr/bin/perl
use strict;
use warnings;
use TAP::Harness;
$|++;

my @tests = ('del.t',);


my $harness = TAP::Harness->new( {
    verbosity => 1,
 } );
$harness->runtests(@tests);

和测试del.t

use Test::More qw /no_plan/;
$|++;

my $count =1;
for (1 ..20 ) {
   ok ( $count ++ == $_, "Pass  $_");
   sleep 1 if ( $count % 5 == 0 ) ;
}

在 HTML 画布上，我有多个点，从 1 到 N，这基本上是一个连接点的应用程序，并在 touchstart 上激活。

有验证，以便他们只能连接从 1 到 2 (.. n) 的点。问题是现在没有验证这条线是直线，我正在寻找一种算法来做到这一点，这是我到目前为止的想法

1. 对于 2 个点 (x1,y1) 到 (x2,y2)，通过找到斜率并使用公式 y = mx + b 获得所有坐标
2. 在 touchmove 上获取 x,y 坐标并确保它是前面步骤中的点之一，然后画一条线，否则不画线。

有没有更好的方法来做到这一点，或者我可以采取什么不同的方法？