/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/* * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/.
#include <sal/types.h>
#include <cppunit/TestAssert.h>
#include <cppunit/TestFixture.h>
#include <cppunit/extensions/HelperMacros.h>
#include <cppunit/plugin/TestPlugIn.h>
#include <limits>
#include <scanner.hxx>
namespace
{
struct Symbol
{
sal_uInt16 line;
sal_uInt16 col1;
OUString text;
double number;
SbxDataType type;
bool ws;
};
/** * Perform tests on Scanner.
class ScannerTest :
public CppUnit::TestFixture
{
private :
void testBlankLines();
void testOperators();
void testAlphanum();
void testComments();
void testGoto();
void testGotoCompatible();
void testExclamation();
void testNumbers();
void testDataType();
void testHexOctal();
void testTdf103104();
void testTdf136032();
// Adds code needed to register the test suite
CPPUNIT_TEST_SUITE(ScannerTest);
// Declares the method as a test to call
CPPUNIT_TEST(testBlankLines);
CPPUNIT_TEST(testOperators);
CPPUNIT_TEST(testAlphanum);
CPPUNIT_TEST(testComments);
CPPUNIT_TEST(testGoto);
CPPUNIT_TEST(testGotoCompatible);
CPPUNIT_TEST(testExclamation);
CPPUNIT_TEST(testNumbers);
CPPUNIT_TEST(testDataType);
CPPUNIT_TEST(testHexOctal);
CPPUNIT_TEST(testTdf103104);
CPPUNIT_TEST(testTdf136032);
// End of test suite definition
CPPUNIT_TEST_SUITE_END();
};
constexpr OUString cr = u
"\n" _ustr;
constexpr OUString rem = u
"REM" _ustr;
constexpr OUString asdf = u
"asdf" _ustr;
constexpr OUString dot = u
"." _ustr;
constexpr OUString goto_ = u
"goto" _ustr;
constexpr OUString excl = u
"!" _ustr;
std::vector<Symbol> getSymbols(
const OUString& source, sal_Int32& errors,
bool bC
ompatible = false )while (scanner.NextSym())return symbols;const OUString& source, bool bCompatible = false )return getSymbols(source, i, bCompatible);void ScannerTest::testBlankLines()"" _ustr);"\r\n" _ustr);"\n" _ustr);"\r" _ustr);"\r\n\r\n" _ustr);"\n\r" _ustr);"\n\r\n" _ustr);"\r\n\r" _ustr);" " _ustr);void ScannerTest::testOperators()static constexpr OUString sourceE(u"=" _ustr);static constexpr OUString sourceLT(u"<" _ustr);static constexpr OUString sourceGT(u">" _ustr);static constexpr OUString sourceLTE(u"<=" _ustr);static constexpr OUString sourceGTE(u">=" _ustr);static constexpr OUString sourceNE(u"<>" _ustr);static constexpr OUString sourceA(u":=" _ustr);static constexpr OUString sourceNot(u"Not" _ustr);"==" _ustr);void ScannerTest::testAlphanum()static constexpr OUString source1(u"asdfghefg" _ustr);static constexpr OUString source3(u"AdfsaAUdsl10987" _ustr);static constexpr OUString source4(u"asdfa_mnvcnm" _ustr);static constexpr OUString source5(u"_asdf1" _ustr);static constexpr OUString source6(u"_6" _ustr);static constexpr OUString source7(u"joxclk_" _ustr);"1asfdasfd" _ustr);// Can't start symbol with a digit "asfdasfd" _ustr, symbols[1].text);// tdf#125637 - don't change underscore to space "joxclk_" _ustr, symbols[0].text);" asdf " _ustr);"asdf" _ustr, symbols[0].text);" 19395 asdfa " _ustr);"asdfa" _ustr, symbols[1].text);"\n1\n2\na sdf" _ustr);static_cast <unsigned int >(symbols[5].text.getLength()));'a' , static_cast <char >(symbols[5].text[0]));"sdf" _ustr, symbols[6].text);"asdf.asdf" _ustr);".." _ustr);void ScannerTest::testComments()"REM asdf" _ustr);"REMasdf" _ustr);"REMasdf" _ustr, symbols[0].text);"'asdf" _ustr);"asdf _\n'100" _ustr);"'asdf _\n100" _ustr);"'asdf _\n'100" _ustr);"'asdf _\n 1234 _\n asdf'" _ustr);void ScannerTest::testGoto()"goto" _ustr);"go to" _ustr);"go" _ustr, symbols[0].text);"to" _ustr, symbols[1].text);"go\nto" _ustr);"go" _ustr, symbols[0].text);"to" _ustr, symbols[2].text);void ScannerTest::testGotoCompatible()"goto" _ustr, true );"go to" _ustr, true );"go\nto" _ustr, true );"go" _ustr, symbols[0].text);"to" _ustr, symbols[2].text);void ScannerTest::testExclamation()"asdf!asdf" _ustr);"!1234" _ustr);"!_3" _ustr);"_3" _ustr, symbols[1].text);"!$" _ustr);"$" _ustr, symbols[1].text);"!%" _ustr);"%" _ustr, symbols[1].text);"!\n" _ustr);void ScannerTest::testNumbers()"12345" _ustr, errors);static_cast <unsigned int >(errors));"1.2.3" _ustr, errors);static_cast <unsigned int >(errors));"123.4" _ustr, errors);static_cast <unsigned int >(errors));"0.5" _ustr, errors);static_cast <unsigned int >(errors));"5.0" _ustr, errors);static_cast <unsigned int >(errors));"0.0" _ustr, errors);static_cast <unsigned int >(errors));"-3" _ustr, errors);"-" _ustr, symbols[0].text);static_cast <unsigned int >(errors));"-0.0" _ustr, errors);"-" _ustr, symbols[0].text);static_cast <unsigned int >(errors));"12dE3" _ustr, errors);"dE3" _ustr, symbols[1].text);static_cast <unsigned int >(errors));"12e3" _ustr, errors);static_cast <unsigned int >(errors));"12D+3" _ustr, errors);static_cast <unsigned int >(errors));"12e++3" _ustr, errors);"e" _ustr, symbols[1].text);"+" _ustr, symbols[2].text);"+" _ustr, symbols[3].text);static_cast <unsigned int >(errors));"12e-3" _ustr, errors);static_cast <unsigned int >(errors));"12e-3+" _ustr, errors);"+" _ustr, symbols[1].text);static_cast <unsigned int >(errors));"1,2,3" _ustr, errors);"," _ustr, symbols[1].text);"," _ustr, symbols[3].text);static_cast <unsigned int >(errors));"1." "0000000000000000000000000000000000000000000000000000000000000000000000000" "000000000000000000000000000000000000000000000000000" _ustr,// This error is from a "buffer overflow" which is stupid because // the buffer is artificially constrained by the scanner. static_cast <unsigned int >(errors)); // HACK "10e308" _ustr, errors);double >::infinity(), symbols[0].number);static_cast <unsigned int >(errors)); // math error, overflow // trailing data type character % = SbxINTEGER "1.23%" _ustr);// trailing data type character & = SbxLONG "1.23&" _ustr);// trailing data type character ! = SbxSINGLE "1.23!" _ustr);// trailing data type character # = SbxDOUBLE "1.23#" _ustr);// trailing data type character @ = SbxCURRENCY "1.23@" _ustr);// trailing data type character $ = SbxSTRING "1.23$" _ustr, errors);// ERRCODE_BASIC_SYNTAX static_cast <unsigned int >(errors));void ScannerTest::testDataType()"asdf%" _ustr);"asdf&" _ustr);"asdf!" _ustr);"asdf#" _ustr);"asdf@" _ustr);"asdf$" _ustr);"asdf " _ustr);void ScannerTest::testHexOctal()"&HA" _ustr);"&HASDF" _ustr);"&H10" _ustr);"&&H&1H1&H1" _ustr);"&" _ustr, symbols[0].text);"H1" _ustr, symbols[3].text);"H1" _ustr, symbols[4].text);"&O&O12" _ustr);"O12" _ustr, symbols[1].text);"&O10" _ustr);"&HO" _ustr);"&O123000000000000000000000" _ustr);// TODO: this line fails on 64 bit systems!!! // CPPUNIT_ASSERT_EQUAL(symbols[0].number, -1744830464); "&H1.23" _ustr);/* tdf#62323, tdf#62326 - conversion of Hex literals to basic signed Integers */ // &H0 = 0 "&H0" _ustr);// &H8000 = -32768 "&H8000" _ustr);// &H80000000 = -2147483648 "&H80000000" _ustr);// &HFFFF = -1 "&HFFFF" _ustr);// &HFFFFFFFF = -1 "&HFFFFFFFF" _ustr);// &H7FFF = 32767 "&H7FFF" _ustr);// &H7FFFFFFF = 2147483647 "&H7FFFFFFF" _ustr);/* tdf#130476 - trailing data type characters */ // % = SbxINTEGER "&H0%" _ustr);// & = SbxLONG "&H0&" _ustr);// ! = SbxSINGLE "&H0!" _ustr);// # = SbxDOUBLE "&H0#" _ustr);// @ = SbxCURRENCY "&H0@" _ustr);// $ = SbxSTRING "&H0$" _ustr, errors);// ERRCODE_BASIC_SYNTAX static_cast <unsigned int >(errors));// % = SbxINTEGER "&O0%" _ustr);// & = SbxLONG "&O0&" _ustr);// ! = SbxSINGLE "&O0!" _ustr);// # = SbxDOUBLE "&O0#" _ustr);// @ = SbxCURRENCY "&O0@" _ustr);// $ = SbxSTRING "&O0$" _ustr, errors);// ERRCODE_BASIC_SYNTAX static_cast <unsigned int >(errors));// maximum for Hex % = SbxINTEGER "&HFFFF%" _ustr);// overflow for Hex % = SbxINTEGER "&H10000%" _ustr, errors);// ERRCODE_BASIC_MATH_OVERFLOW static_cast <unsigned int >(errors));// maximum for Octal % = SbxINTEGER "&O177777%" _ustr);// overflow for Octal % = SbxINTEGER "&O200000%" _ustr, errors);// ERRCODE_BASIC_MATH_OVERFLOW static_cast <unsigned int >(errors));// maximum for Hex & = SbxLONG "&H7FFFFFFF&" _ustr);// minimum for Hex & = SbxLONG "&H80000000&" _ustr);// overflow for Hex & = SbxLONG "&H100000000&" _ustr, errors);// ERRCODE_BASIC_MATH_OVERFLOW static_cast <unsigned int >(errors));// maximum for Octal & = SbxLONG "&O17777777777&" _ustr);// minimum for Octal & = SbxLONG "&O20000000000&" _ustr, errors);// overflow for Octal & = SbxLONG "&O40000000000&" _ustr, errors);// ERRCODE_BASIC_MATH_OVERFLOW static_cast <unsigned int >(errors));/* test for leading zeros */ // &H0000000FFFF = 65535 "&H0000000FFFF" _ustr);// &O00000123 = 83 "&O00000123" _ustr);"&O7777777" _ustr);void ScannerTest::testTdf103104()"asdf _\n asdf" _ustr);"asdf. _\n asdf" _ustr);"asdf _\n .asdf" _ustr);void ScannerTest::testTdf136032()// tdf#136032 - abort scan of a string beginning with a hashtag, // if a comma/whitespace is found. Otherwise, the compiler raises a syntax error. "Print #i,\" A#B \"" _ustr, errors);static_cast <unsigned int >(errors));"Print #i, \" A#B \"" _ustr, errors);static_cast <unsigned int >(errors));// Put the test suite in the registry // namespace /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ Messung V0.5 in Prozent C=95 H=99 G=96
¤ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet am 2026-05-05)
¤ *© Formatika GbR, Deutschland
