test: add alpha & beta tests for blas/base/ggemm

PR-URL: #12194
Reviewed-by: Athan Reines <kgryte@gmail.com>

Author: MeKaustubh07

lib/node_modules/@stdlib/blas/base/ggemm/test/fixtures/ra_rb_rc_nta_ntb_alpha2_beta3.json

@@ -0,0 +1,22 @@
+{
+  "transA": "no-transpose",
+  "transB": "no-transpose",
+  "M": 2,
+  "N": 4,
+  "K": 3,
+  "alpha": 2.0,
+  "A": [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0 ],
+  "strideA1": 3,
+  "strideA2": 1,
+  "offsetA": 0,
+  "B": [ 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0 ],
+  "strideB1": 4,
+  "strideB2": 1,
+  "offsetB": 0,
+  "beta": 3.0,
+  "C": [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0 ],
+  "strideC1": 4,
+  "strideC2": 1,
+  "offsetC": 0,
+  "C_out": [ 15.0, 18.0, 21.0, 24.0, 45.0, 48.0, 51.0, 54.0 ]
+}

lib/node_modules/@stdlib/blas/base/ggemm/test/fixtures/row_major_nta_ntb_alpha2_beta3.json

@@ -0,0 +1,17 @@
+{
+  "order": "row-major",
+  "transA": "no-transpose",
+  "transB": "no-transpose",
+  "M": 2,
+  "N": 4,
+  "K": 3,
+  "alpha": 2.0,
+  "A": [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0 ],
+  "lda": 3,
+  "B": [ 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0 ],
+  "ldb": 4,
+  "beta": 3.0,
+  "C": [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0 ],
+  "ldc": 4,
+  "C_out": [ 15.0, 18.0, 21.0, 24.0, 45.0, 48.0, 51.0, 54.0 ]
+}

lib/node_modules/@stdlib/blas/base/ggemm/test/test.main.js

@@ -16,7 +16,7 @@
 * limitations under the License.
 */
 
-/* eslint-disable max-len */
+/* eslint-disable max-len, stdlib/no-empty-lines-between-requires */
 
 'use strict';
 
@@ -41,6 +41,7 @@ var rntantb = require( './fixtures/row_major_nta_ntb.json' );
 var rtantb = require( './fixtures/row_major_ta_ntb.json' );
 var rntatb = require( './fixtures/row_major_nta_tb.json' );
 var rtatb = require( './fixtures/row_major_ta_tb.json' );
+var rntantbAlpha2Beta3 = require( './fixtures/row_major_nta_ntb_alpha2_beta3.json' );
 
 
 // TESTS //
@@ -1393,3 +1394,49 @@ tape( 'if `α` is `0` and `β` is neither `0` nor `1`, the function returns the
 
 	t.end();
 });
+
+tape( 'the function correctly applies both `α` and `β` scalars (row-major, no-transpose, no-transpose, α=2, β=3)', function test( t ) {
+	var expected;
+	var data;
+	var out;
+	var a;
+	var b;
+	var c;
+
+	data = rntantbAlpha2Beta3;
+
+	a = copy( data.A );
+	b = copy( data.B );
+	c = copy( data.C );
+
+	expected = data.C_out;
+
+	out = ggemm( data.order, data.transA, data.transB, data.M, data.N, data.K, data.alpha, a, data.lda, b, data.ldb, data.beta, c, data.ldc );
+	t.strictEqual( out, c, 'returns expected value' );
+	t.deepEqual( out, expected, 'returns expected value' );
+	t.end();
+});
+
+tape( 'the function correctly applies both `α` and `β` scalars (row-major, no-transpose, no-transpose, α=2, β=3) (accessors)', function test( t ) {
+	var expected;
+	var data;
+	var cbuf;
+	var out;
+	var a;
+	var b;
+	var c;
+
+	data = rntantbAlpha2Beta3;
+
+	a = toAccessorArray( copy( data.A ) );
+	b = toAccessorArray( copy( data.B ) );
+	cbuf = copy( data.C );
+	c = toAccessorArray( cbuf );
+
+	expected = data.C_out;
+
+	out = ggemm( data.order, data.transA, data.transB, data.M, data.N, data.K, data.alpha, a, data.lda, b, data.ldb, data.beta, c, data.ldc );
+	t.strictEqual( out, c, 'returns expected value' );
+	t.deepEqual( cbuf, expected, 'returns expected value' );
+	t.end();
+});

lib/node_modules/@stdlib/blas/base/ggemm/test/test.ndarray.js

@@ -16,7 +16,7 @@
 * limitations under the License.
 */
 
-/* eslint-disable max-len */
+/* eslint-disable max-len, stdlib/no-empty-lines-between-requires */
 
 'use strict';
 
@@ -85,6 +85,7 @@ var rarbrcntantboa = require( './fixtures/ra_rb_rc_nta_ntb_oa.json' );
 var rarbrcntantbob = require( './fixtures/ra_rb_rc_nta_ntb_ob.json' );
 var rarbrcntantboc = require( './fixtures/ra_rb_rc_nta_ntb_oc.json' );
 var cap = require( './fixtures/ra_rb_rc_nta_ntb_complex_access_pattern.json' );
+var rarbrcntantbAlpha2Beta3 = require( './fixtures/ra_rb_rc_nta_ntb_alpha2_beta3.json' );
 
 
 // TESTS //
@@ -2945,3 +2946,49 @@ tape( 'the function supports computation over large arrays (column-major, column
 	t.deepEqual( out, expected, 'returns expected value' );
 	t.end();
 });
+
+tape( 'the function correctly applies both `α` and `β` scalars (row-major, row-major, row-major, no-transpose, no-transpose, α=2, β=3)', function test( t ) {
+	var expected;
+	var data;
+	var out;
+	var a;
+	var b;
+	var c;
+
+	data = rarbrcntantbAlpha2Beta3;
+
+	a = copy( data.A );
+	b = copy( data.B );
+	c = copy( data.C );
+
+	expected = data.C_out;
+
+	out = ggemm( data.transA, data.transB, data.M, data.N, data.K, data.alpha, a, data.strideA1, data.strideA2, data.offsetA, b, data.strideB1, data.strideB2, data.offsetB, data.beta, c, data.strideC1, data.strideC2, data.offsetC );
+	t.strictEqual( out, c, 'returns expected value' );
+	t.deepEqual( out, expected, 'returns expected value' );
+	t.end();
+});
+
+tape( 'the function correctly applies both `α` and `β` scalars (row-major, row-major, row-major, no-transpose, no-transpose, α=2, β=3) (accessors)', function test( t ) {
+	var expected;
+	var data;
+	var cbuf;
+	var out;
+	var a;
+	var b;
+	var c;
+
+	data = rarbrcntantbAlpha2Beta3;
+
+	a = toAccessorArray( copy( data.A ) );
+	b = toAccessorArray( copy( data.B ) );
+	cbuf = copy( data.C );
+	c = toAccessorArray( cbuf );
+
+	expected = data.C_out;
+
+	out = ggemm( data.transA, data.transB, data.M, data.N, data.K, data.alpha, a, data.strideA1, data.strideA2, data.offsetA, b, data.strideB1, data.strideB2, data.offsetB, data.beta, c, data.strideC1, data.strideC2, data.offsetC );
+	t.strictEqual( out, c, 'returns expected value' );
+	t.deepEqual( cbuf, expected, 'returns expected value' );
+	t.end();
+});