### 概述为JSL实现[Hamcrest](http://hamcrest.org/)。编写包含信息性故障消息的可表达检验。使检验更加独立，并减少检验之间的信息溢出。 #### 使用Hamcrest自动检验JSL 您是否编写了一些JSL并对每次更改后手动测试感兴趣？您是否不经意间破坏了应用程序的某个部分，或者因为担心这样做而阻止了您做出想要的更改？通过自动化测试，您可以对自己的更改更有把握。现在提供的是一组用于自动检验JSL的工具。该框架包括检验和测试案例的创建，以及著名的Hamcrest断言库的实现。 Hamcrest提供了灵活的方式来断定您所知道的关于JSL行为的正确性。这些工具功能全面，可以专业化以满足您的需要。事实上， JMP development 甚至使用它们来测试JMP本身。 #### 文档查看我们的[文档](https://sassoftware.github.io/jsl-hamcrest/#File:Matchers-Index.txt)网站以获取有关使用JSL\-Hamcrest的详细信息。 ### 如何使用 #### 正在安装打开JMP中的`JSL-Hamcrest.jmpaddin`文件进行安装。 #### 基本用法 JSL\-Hamcrest提供几个不同的部分，您可以选择用于检验。您可以单独使用其中的多数项，也可以组合使用。这些包括断言（ `ut assert that`和matchers ）、测试案例（ `ut test` 、 `ut test case` ）、模拟函数 ( `ut mock function` ) 以及作为这一切基础的报告器 ( `ut global reporter` )。最常见的场景是测试案例和断言的组合，如下所示： ```jsl formulas test case = ut test case("Formulas") << Setup(Expr( dt = Open("$SAMPLE_DATA\Big Class.jmp"); )) << Teardown(Expr( Close(dt, NoSave); // Unnecessary )) << Skip If(Expr(Day Of Week(Today()) == 4), "It's Wednesday"); ut test(formulas test case, "Advance Row", Expr( dt << new column("Test", Formula(Row())); ut assert that(Expr(dt:Test << Get Values), (1::40)`); )); ut test(formulas test case, "Char", Expr( dt << new column("Test", Formula(Char(Row()))); ut assert that(Expr(dt:Test << Get Values), ut starts with({"1", "2", "3"})); )); ut test("Big Class", "Row Count", Expr( dt = Open("$SAMPLE_DATA\Big Class.jmp"); ut assert that(Expr(N Rows(dt)), ut greater than(38), "large"); )); ``` `ut test case`允许`Setup`和`Teardown`表达式在每个 `ut test`之前和之后运行。 `ut test`还确保清除所有窗口、表、错误和符号，以便您可以专注于检验本身。 `ut assert that`是您编写实际断言的方式。第一个参数（检验表达式）应始终用`Expr`括起来，以便我们可以检验错误并报告更好的检验失败。第二个参数（期望值）可以是一个值或`matcher` ，比如`ut starts with` 。这些是对您要检验的内容的声明性描述，它提供说明性说明和失败情况。若需要，可以在`ut test` 之外使用`ut assert that` 。模拟函数可用于测试回调。它们如下所示： ```jsl Data Table List Subscription Test = ut test case("Data Table List Subscription") <. Example: ---JSL--- d = 01aug2019; ut assert that( Expr( d ), ut day of week( 5 ) ); --------- */ ut matcher factory( "ut day of week", Expr(Function( {val}, // Do necessary type checking of input variables // in factory function. If( !Is Number( val ), Throw( "ut day of week() requires a numeric date value as the argument" ), ); New Object( UtDayOfWeekMatcher( Name Expr( val ) ) ); )), "ut day of week( value )", //Prototype "Matches based on the day of the week of a given date value." // Description ); ``` #### UtTypedMatcher 您还可以从`UtTypedMatcher`派生，让我们为您执行类型检查。这简化了`matches`方法中发生的很多事情。 ```jsl Define Class( "UtDayOfWeekMatcher", Base Class( "UtTypedMatcher" ), value = .; days = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}; allowable types = {Date, Number}; _init_ = Method( {value}, this:value = value; ); // Method: typed matches // Handle a pre-evaluated and typed checked actual value. typed matches = Method( {actual}, day = Day of Week( actual ); If( day == this:value, ut match info success(), // else ut match info failure( Eval Insert( "^As Date( actual )^ was on ^this:days[Day of Week( actual )]^" ) ) ); ); describe = Method( {}, Eval Insert( "date falling on a ^this:days[Day of Week( this:value )]^" ) ); ); ``` 从`UtTypedMatcher`派生时，您需要在工厂函数内的匹配器中插入自引用。 ```jsl ut day of week = Function( {val}, If( !Is Number( val ), Throw( "ut day of week() requires a numeric date value as the argument" ), ); ut new object( "UtDayOfWeekMatcher", Eval List( {Name Expr( val )} ) ); ); ``` #### 多个工厂您可以为单个匹配器具有多个工厂函数，以更改比较方法（如小于/大于）或改进用词，如`ut on thursday()`改为`ut day of week( 5 )` 。 ```jsl ut on thursday = Function( {}, ut day of week( 5 ); ); ``` ### 其他详细信息请访问[GitHub](https://github.com/sassoftware/jsl-hamcrest)有关实现、使用和贡献的更多详细信息。 #### 归因 JSL\-Hamcrest插件中使用的图标改编自[Apache 2.0 License](https://github.com/google/material-design-icons/blob/master/LICENSE)下的[Material Design Icons](https://github.com/google/material-design-icons) by Google。 #### 其他资源 * JMP Discovery Summit Europe 2019中的原始演示材料可以在[这里](https://community.jmp.com/t5/Discovery-Summit-Europe-2019/Automate-the-Testing-of-JSL-Using-Hamcrest-2019-EU-45MP-061/ta-p/110062)找到。 * [Hamcrest.org](http://hamcrest.org/)

Marketplace

语言

创建

发布

JSL-Hamcrest

概述

评论

问答