require "spec_helper" RSpec.describe Asciimath2UnitsML do it "converts an AsciiMath string to MathML + UnitsML" do input = <<~INPUT 1 "unitsml(mm*s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 mm \cdot s^{- 2} mm*s^-2 mm⋅s

⁻²

mm \cdot s^{- 2}

milli m m m m OUTPUT end it "deals with non-Ascii units and prefixes" do input = <<~INPUT 1 "unitsml(um)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 µm um um µm micro u μ $mu$ µ

OUTPUT end it "does not insert space before non-alphabetic units" do input = <<~INPUT 1 "unitsml(degK)" + 1 "unitsml(prime)" + ii(theta) = s//r "unitsml(rad)" + 10^(12) "unitsml(Hz)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 °K kelvin K K thermodynamic temperature + 1' minute (minute of arc) ′' plane angle angle + θ = s / r rad radian rad rad + 10^{12} Hz hertz Hz Hz frequency

OUTPUT end it "does not insert space before operators" do input = <<~INPUT 8 "unitsml(kg)" cdot "unitsml(m)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

8 kg kilogram kg kg kilo k k k k mass \cdot m meter m m

OUTPUT end it "deals with sqrt units" do input = <<~INPUT 1 "unitsml(sqrt(Hz))" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 \sqrt{Hz} Hz^0.5 √Hz \sqrt{Hz}

OUTPUT end it "deals with kg and g" do input = <<~INPUT 1 "unitsml(kg)" + 1 "unitsml(g)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 kg kilogram kg kg kilo k k k k mass + 1 g gram g g

OUTPUT end it "deals with non-metric" do input = <<~INPUT 1 "unitsml(hp)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 hp horsepower hp hp power

OUTPUT end it "deals with duplicate units" do input = <<~INPUT 1 "unitsml(kg*s^-2)" xx 9 "unitsml(kg*s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

1 kg \cdot s^{- 2} kg*s^-2 kg⋅s

⁻²

kg \cdot s^{- 2}

kilo k k k k × 9 ⁢ kg ⋅ s − 2 OUTPUT end it "deals with parentheses" do input = <<~INPUT 10 "unitsml(K/(kg*m))" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

10 K / kg \cdot m K*kg^-1*m^-1 K⋅kg

⁻¹ ⋅m ⁻¹

K \cdot {kg}^{- 1} \cdot m^{- 1}

kilo k k k k OUTPUT end it "deals with notational variants" do input = <<~INPUT 9 "unitsml(degK)" + 10 "unitsml(K)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 °K kelvin K K thermodynamic temperature + 10 K

OUTPUT end it "deals with prefixed units" do input = <<~INPUT 9 "unitsml(mbar)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 mbar millibar mbar mbar milli m m m m

OUTPUT end it "deals with standalone prefixes" do input = <<~INPUT "unitsml(p-)" "unitsml(da-)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

p pico p p p p da deka da da da da

OUTPUT end it "deals with HTML entities in UnitsDB" do input = <<~INPUT "unitsml(u-)" + "unitsml(um)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

µ micro u μ $mu$ µ mass + µm um um µm

OUTPUT end it "deals with units division" do input = <<~INPUT 9 "unitsml(A*C^3)" + 13 "unitsml(A/C^-3)" + 2 "unitsml(J/kg*K)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 A \cdot C^{3} A*C^3 A⋅C

A \cdot C^{3}

+ 13 ⁢ A / C − 3 + 2 ⁢ J / kg ⋅ K joule per kilogram kelvin J⋅kg ⁻¹ ⋅K ⁻¹

J \cdot {kg}^{- 1} \cdot K^{- 1}

kilo k k k k OUTPUT end it "converts MathML to MatML + UnitsML" do input = <<~INPUT

32 + 5 \times 7 unitsml(kg^-2)

INPUT output = <<~OUTPUT

32 + 5 \times 7 {kg}^{- 2} kg^-2 kg

⁻²

{kg}^{- 2}

kilo k k k k OUTPUT expect(xmlpp(Asciimath2UnitsML::Conv.new .MathML2UnitsML(input).to_xml)).to be_equivalent_to xmlpp(output) expect(xmlpp(Asciimath2UnitsML::Conv.new .MathML2UnitsML(Nokogiri::XML(input)).to_xml)) .to be_equivalent_to xmlpp(output) end it "raises error for illegal unit" do input = <<~INPUT 12 "unitsml(que?)" INPUT expect { xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input)) } .to raise_error(Rsec::SyntaxError) end it "initialises multiplier" do input = <<~INPUT 1 "unitsml(kg*s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv .new(multiplier: "\u00d7") .Asciimath2UnitsML(input))).to be_equivalent_to xmlpp(<<~OUTPUT)

1 kg \times s^{- 2} kg*s^-2 kg×s

⁻²

kg \times s^{- 2}

kilo k k k k OUTPUT input = <<~INPUT 1 "unitsml(kg*s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv .new(multiplier: :space) .Asciimath2UnitsML(input))).to be_equivalent_to xmlpp(<<~OUTPUT)

1 kg s^{- 2} kg*s^-2 kg s

⁻²

kg s^{- 2}

kilo k k k k OUTPUT input = <<~INPUT 1 "unitsml(kg*s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv .new(multiplier: :nospace) .Asciimath2UnitsML(input))).to be_equivalent_to xmlpp(<<~OUTPUT)

1 kg s^{- 2} kg*s^-2 kgs

⁻²

kg s^{- 2}

kilo k k k k OUTPUT end it "deals with dimension decomposition with like units" do input = <<~INPUT 9 "unitsml(mW*cm^(-2))" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 mW \cdot {cm}^{- 2} mW*cm^-2 mW⋅cm

⁻²

mW \cdot {cm}^{- 2}

milli m m m m centi c c c c OUTPUT end it "deals with quantity input" do input = <<~INPUT 9 "unitsml(m, quantity: NISTq103)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 m meter m m position vector

OUTPUT end it "deals with name input" do input = <<~INPUT 9 "unitsml(cal_th/cm^2, name: langley)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 {cal}_{th} / {cm}^{2} langley cal

_th ⋅cm ⁻²

{cal}_{th} \cdot {cm}^{- 2}

centi c c c c OUTPUT end it "deals with symbol input" do input = <<~INPUT 9 "unitsml(m, symbol: La)" + 10 "unitsml(cm*s^-2, symbol: cm cdot s^-2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

9 L a meter m m + 10 c m \cdot s^{-} 2 cm*s^-2 cm⋅s

⁻²

cm \cdot s^{- 2}

centi c c c c OUTPUT end it "deals with multiplier input" do input = <<~INPUT 10 "unitsml(cm*s^-2, multiplier: xx)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

10 cm xx s^{- 2} cm*s^-2 cm⋅s

⁻²

cm \cdot s^{- 2}

centi c c c c OUTPUT end it "deals with dimensions" do input = <<~INPUT "unitsml(dim_Theta*dim_L^2)" INPUT expect(xmlpp(Asciimath2UnitsML::Conv.new.Asciimath2UnitsML(input))) .to be_equivalent_to xmlpp(<<~OUTPUT)

Θ \cdot L^{2}

OUTPUT end end