Beispiel #1
0
 public void testSYD() {
   assertEquals(300.0, Vba.sYD(1000, 100, 5, 5));
   assertEquals(240.0, Vba.sYD(1000, 100, 4, 5));
   assertEquals(180.0, Vba.sYD(1000, 100, 3, 5));
   assertEquals(120.0, Vba.sYD(1000, 100, 2, 5));
   assertEquals(60.0, Vba.sYD(1000, 100, 1, 5));
 }
Beispiel #2
0
 public void testReplace6() {
   // compare is currently ignored
   assertEquals("azaz", Vba.replace("xyzxyz", "xy", "a", 1, -1, 1000));
   assertEquals("azxyz", Vba.replace("xyzxyz", "xy", "a", 1, 1, 0));
   assertEquals("azaz", Vba.replace("xyzxyz", "xy", "a", 1, 2, -6));
   assertEquals("xyzazxyz", Vba.replace("xyzxyzxyz", "xy", "a", 2, 1, 11));
 }
Beispiel #3
0
  public void testNpv() {
    double r, v[], npv, x;

    r = 1;
    v = new double[] {100, 200, 300, 400};
    npv = Vba.nPV(r, v);
    x = 162.5;
    assertEquals(x, npv);

    r = 2.5;
    v = new double[] {1000, 666.66666, 333.33, 12.2768416};
    npv = Vba.nPV(r, v);
    x = 347.99232604144827;
    assertEquals(x, npv, SMALL);

    r = 12.33333;
    v = new double[] {1000, 0, -900, -7777.5765};
    npv = Vba.nPV(r, v);
    x = 74.3742433377061;
    assertEquals(x, npv, 1e-12);

    r = 0.05;
    v = new double[] {200000, 300000.55, 400000, 1000000, 6000000, 7000000, -300000};
    npv = Vba.nPV(r, v);
    x = 11342283.4233124;
    assertEquals(x, npv, 1e-8);
  }
Beispiel #4
0
 public void testStrReverse() {
   // odd length
   assertEquals("cba", Vba.strReverse("abc"));
   // even length
   assertEquals("wxyz", Vba.strReverse("zyxw"));
   // zero length
   assertEquals("", Vba.strReverse(""));
 }
Beispiel #5
0
 public void testReplace4() {
   assertEquals("azaz", Vba.replace("xyzxyz", "xy", "a", 1));
   assertEquals("xyzaz", Vba.replace("xyzxyz", "xy", "a", 2));
   assertEquals("xyzxyz", Vba.replace("xyzxyz", "xy", "a", 30));
   // spec doesn't say, but assume starting before start of string is ok
   assertEquals("azaz", Vba.replace("xyzxyz", "xy", "a", 0));
   assertEquals("azaz", Vba.replace("xyzxyz", "xy", "a", -5));
 }
Beispiel #6
0
  public void testMIRR() {
    double vals[] = {-1000, 50, 50, 50, 50, 50, 1050};
    assertTrue(Math.abs(0.05 - Vba.MIRR(vals, 0.05, 0.05)) < 0.0000001);

    vals = new double[] {-1000, 200, 200, 200, 200, 200, 200};
    assertTrue(Math.abs(0.05263266 - Vba.MIRR(vals, 0.05, 0.05)) < 0.0000001);

    vals = new double[] {-1000, 200, 200, 200, 200, 200, 200};
    assertTrue(Math.abs(0.04490701 - Vba.MIRR(vals, 0.06, 0.04)) < 0.0000001);
  }
Beispiel #7
0
 public void testInStrRev() {
   assertEquals(32, Vba.inStrRev("the quick brown fox jumps over the lazy dog", "the"));
   assertEquals(1, Vba.inStrRev("the quick brown fox jumps over the lazy dog", "the", 16));
   try {
     Vba.inStrRev("the quick brown fox jumps over the lazy dog", "the", 0);
     fail();
   } catch (InvalidArgumentException e) {
     assertTrue(e.getMessage().indexOf("-1 or a location") >= 0);
   }
 }
Beispiel #8
0
 public void testSpace() {
   assertEquals("   ", Vba.space(3));
   assertEquals("", Vba.space(0));
   try {
     String s = Vba.space(-2);
     fail("expected error, got " + s);
   } catch (RuntimeException e) {
     assertMessage(e, "NegativeArraySizeException");
   }
 }
Beispiel #9
0
 public void testAscB() {
   assertEquals(0x61, Vba.ascB("abc"));
   assertEquals(0x34, Vba.ascB("\u1234abc")); // not sure about this
   try {
     Object o = Vba.ascB("");
     fail("expected error, got " + o);
   } catch (RuntimeException e) {
     assertMessage(e, "StringIndexOutOfBoundsException");
   }
 }
Beispiel #10
0
 public void testString() {
   assertEquals("xxx", Vba.string(3, 'x'));
   assertEquals("", Vba.string(0, 'y'));
   try {
     String s = Vba.string(-2, 'z');
     fail("expected error, got " + s);
   } catch (RuntimeException e) {
     assertMessage(e, "NegativeArraySizeException");
   }
   assertEquals("", Vba.string(100, '\0'));
 }
Beispiel #11
0
 public void testAscW() {
   // ascW behaves identically to asc
   assertEquals(0x61, Vba.ascW("abc"));
   assertEquals(0x1234, Vba.ascW("\u1234abc"));
   try {
     Object o = Vba.ascW("");
     fail("expected error, got " + o);
   } catch (RuntimeException e) {
     assertMessage(e, "StringIndexOutOfBoundsException");
   }
 }
Beispiel #12
0
 public void testMonthName() {
   assertEquals("January", Vba.monthName(1, false));
   assertEquals("Jan", Vba.monthName(1, true));
   assertEquals("Dec", Vba.monthName(12, true));
   try {
     String s = Vba.monthName(0, true);
     fail("expected error, got " + s);
   } catch (RuntimeException e) {
     assertMessage(e, "ArrayIndexOutOfBoundsException");
   }
 }
Beispiel #13
0
 public void testReplace3() {
   // replace with longer string
   assertEquals("abczabcz", Vba.replace("xyzxyz", "xy", "abc"));
   // replace with shorter string
   assertEquals("wazwaz", Vba.replace("wxyzwxyz", "xy", "a"));
   // replace with string which contains seek
   assertEquals("wxyz", Vba.replace("xyz", "xy", "wxy"));
   // replace with string which combines with following char to make seek
   assertEquals("wxyzwx", Vba.replace("xyyzxy", "xy", "wx"));
   // replace with empty string
   assertEquals("wxyza", Vba.replace("wxxyyzxya", "xy", ""));
 }
Beispiel #14
0
  public void testNper() {
    double f, r, y, p, x, n;
    boolean t;

    r = 0;
    y = 7;
    p = 2;
    f = 3;
    t = false;
    n = Vba.nPer(r, y, p, f, t);
    // can you believe it? excel returns nper as a fraction!??
    x = -0.71428571429;
    assertEquals(x, n, 1e-10);

    // cross check with pv
    r = 1;
    y = 100;
    p = -109.66796875;
    f = 10000;
    t = false;
    n = Vba.nPer(r, y, p, f, t);
    x = 10;
    assertEquals(x, n, 1e-12);

    r = 1;
    y = 100;
    p = -209.5703125;
    f = 10000;
    t = true;
    n = Vba.nPer(r, y, p, f, t);
    x = 10;
    assertEquals(x, n, 1e-14);

    // cross check with fv
    r = 2;
    y = 120;
    f = -6409178400d;
    p = 12000;
    t = false;
    n = Vba.nPer(r, y, p, f, t);
    x = 12;
    assertEquals(x, n, SMALL);

    r = 2;
    y = 120;
    f = -6472951200d;
    p = 12000;
    t = true;
    n = Vba.nPer(r, y, p, f, t);
    x = 12;
    assertEquals(x, n, SMALL);
  }
Beispiel #15
0
  public void testPmt() {
    double f, r, y, p, x;
    int n;
    boolean t;

    r = 0;
    n = 3;
    p = 2;
    f = 7;
    t = true;
    y = Vba.pmt(r, n, p, f, t);
    x = -3;
    assertEquals(x, y);

    // cross check with pv
    r = 1;
    n = 10;
    p = -109.66796875;
    f = 10000;
    t = false;
    y = Vba.pmt(r, n, p, f, t);
    x = 100;
    assertEquals(x, y);

    r = 1;
    n = 10;
    p = -209.5703125;
    f = 10000;
    t = true;
    y = Vba.pmt(r, n, p, f, t);
    x = 100;
    assertEquals(x, y);

    // cross check with fv
    r = 2;
    n = 12;
    f = -6409178400d;
    p = 12000;
    t = false;
    y = Vba.pmt(r, n, p, f, t);
    x = 120;
    assertEquals(x, y);

    r = 2;
    n = 12;
    f = -6472951200d;
    p = 12000;
    t = true;
    y = Vba.pmt(r, n, p, f, t);
    x = 120;
    assertEquals(x, y);
  }
Beispiel #16
0
  public void testIRR() {
    double vals[] = {-1000, 50, 50, 50, 50, 50, 1050};
    assertTrue(Math.abs(0.05 - Vba.IRR(vals, 0.1)) < 0.0000001);

    vals = new double[] {-1000, 200, 200, 200, 200, 200, 200};
    assertTrue(Math.abs(0.05471796 - Vba.IRR(vals, 0.1)) < 0.0000001);

    // what happens if the numbers are inversed? this may not be
    // accurate

    vals = new double[] {1000, -200, -200, -200, -200, -200, -200};
    assertTrue(Math.abs(0.05471796 - Vba.IRR(vals, 0.1)) < 0.0000001);
  }
Beispiel #17
0
 public void testDatePart2() {
   assertEquals(2008, Vba.datePart("yyyy", SAMPLE_DATE));
   assertEquals(2, Vba.datePart("q", SAMPLE_DATE)); // 2nd quarter
   assertEquals(4, Vba.datePart("m", SAMPLE_DATE));
   assertEquals(5, Vba.datePart("w", SAMPLE_DATE)); // thursday
   assertEquals(17, Vba.datePart("ww", SAMPLE_DATE));
   assertEquals(115, Vba.datePart("y", SAMPLE_DATE));
   assertEquals(19, Vba.datePart("h", SAMPLE_DATE));
   assertEquals(10, Vba.datePart("n", SAMPLE_DATE));
   assertEquals(45, Vba.datePart("s", SAMPLE_DATE));
 }
Beispiel #18
0
 public void testDdb() {
   double cost, salvage, life, period, factor, result;
   cost = 100;
   salvage = 0;
   life = 10;
   period = 1;
   factor = 2;
   result = Vba.dDB(cost, salvage, life, period, factor);
   assertEquals(20.0, result);
   result = Vba.dDB(cost, salvage, life, period + 1, factor);
   assertEquals(40.0, result);
   result = Vba.dDB(cost, salvage, life, period + 2, factor);
   assertEquals(60.0, result);
   result = Vba.dDB(cost, salvage, life, period + 3, factor);
   assertEquals(80.0, result);
 }
Beispiel #19
0
 public void testDate() {
   final Date date = Vba.date();
   assertNotNull(date);
   Calendar calendar = Calendar.getInstance();
   calendar.setTime(date);
   assertEquals(0, calendar.get(Calendar.HOUR_OF_DAY));
   assertEquals(0, calendar.get(Calendar.MILLISECOND));
 }
Beispiel #20
0
 public void testStr() {
   assertEquals(" 0", Vba.str(0));
   assertEquals(" 1", Vba.str(1));
   assertEquals(" 10", Vba.str(10));
   assertEquals(" 100", Vba.str(100));
   assertEquals("-1", Vba.str(-1));
   assertEquals("-10", Vba.str(-10));
   assertEquals("-100", Vba.str(-100));
   assertEquals("-10.123", Vba.str(-10.123));
   assertEquals(" 10.123", Vba.str(10.123));
   try {
     Object o = Vba.oct("a");
     fail("expected error, got " + o);
   } catch (RuntimeException e) {
     assertMessage(e, "Invalid parameter.");
   }
 }
Beispiel #21
0
  public void testRight() {
    assertEquals("xyz", Vba.right("abcxyz", 3));
    // length=0 is OK
    assertEquals("", Vba.right("abcxyz", 0));
    // Spec says: "If greater than or equal to the number of characters in
    // string, the entire string is returned."
    assertEquals("abcxyz", Vba.right("abcxyz", 8));
    assertEquals("", Vba.right("", 3));

    // The VBA spec says that length<0 is error.
    // Note: SSAS 2005 allows length<0, giving the same result as length=0.
    // We favor the VBA spec over SSAS 2005.
    if (Bug.Ssas2005Compatible) {
      assertEquals("", Vba.right("xyz", -2));
    } else {
      try {
        String s = Vba.right("xyz", -2);
        fail("expected error, got " + s);
      } catch (RuntimeException e) {
        assertMessage(e, "StringIndexOutOfBoundsException");
      }
    }

    assertEquals("World!", Vba.right("Hello World!", 6));
  }
Beispiel #22
0
  public void testFormatCurrency() {
    assertEquals("$1.00", Vba.formatCurrency(1.0));
    assertEquals("$0.00", Vba.formatCurrency(0.0));
    assertEquals("$1.0", Vba.formatCurrency(1.0, 1));
    assertEquals("$1", Vba.formatCurrency(1.0, 0));
    assertEquals("$.10", Vba.formatCurrency(0.10, -1, 0));
    assertEquals("$0.10", Vba.formatCurrency(0.10, -1, -1));
    // todo: still need to implement parens customization
    // assertEquals("-$0.10", Vba.formatCurrency(-0.10, -1, -1, -1));
    assertEquals("($0.10)", Vba.formatCurrency(-0.10, -1, -1, 0));

    assertEquals("$1,000.00", Vba.formatCurrency(1000.0, -1, -1, 0, 0));
    assertEquals("$1000.00", Vba.formatCurrency(1000.0, -1, -1, 0, -1));
  }
Beispiel #23
0
  public void testCDate() throws ParseException {
    Date date = new Date();
    assertEquals(date, Vba.cDate(date));
    assertNull(Vba.cDate(null));
    // CInt rounds to the nearest even number
    try {
      assertEquals(DateFormat.getDateInstance().parse("Jan 12, 1952"), Vba.cDate("Jan 12, 1952"));
      assertEquals(
          DateFormat.getDateInstance().parse("October 19, 1962"), Vba.cDate("October 19, 1962"));
      assertEquals(DateFormat.getTimeInstance().parse("4:35:47 PM"), Vba.cDate("4:35:47 PM"));
      assertEquals(
          DateFormat.getDateTimeInstance().parse("October 19, 1962 4:35:47 PM"),
          Vba.cDate("October 19, 1962 4:35:47 PM"));
    } catch (ParseException e) {
      e.printStackTrace();
      fail();
    }

    try {
      Vba.cDate("Jan, 1952");
      fail();
    } catch (InvalidArgumentException e) {
      assertTrue(e.getMessage().indexOf("Jan, 1952") >= 0);
    }
  }
Beispiel #24
0
 public void testDateValue() {
   Date date = new Date();
   final Date date1 = Vba.dateValue(date);
   Calendar calendar = Calendar.getInstance();
   calendar.setTime(date1);
   assertEquals(0, calendar.get(Calendar.HOUR_OF_DAY));
   assertEquals(0, calendar.get(Calendar.MINUTE));
   assertEquals(0, calendar.get(Calendar.SECOND));
   assertEquals(0, calendar.get(Calendar.MILLISECOND));
 }
Beispiel #25
0
 public void testTypeName() {
   assertEquals("Double", Vba.typeName(1.0));
   assertEquals("Integer", Vba.typeName(1));
   assertEquals("Float", Vba.typeName(1.0f));
   assertEquals("Byte", Vba.typeName((byte) 1));
   assertEquals("NULL", Vba.typeName(null));
   assertEquals("String", Vba.typeName(""));
   assertEquals("Date", Vba.typeName(new Date()));
 }
Beispiel #26
0
 public void testIsDate() throws ParseException {
   // CInt rounds to the nearest even number
   assertFalse(Vba.isDate(null));
   assertTrue(Vba.isDate(new Date()));
   assertTrue(Vba.isDate("Jan 12, 1952"));
   assertTrue(Vba.isDate("October 19, 1962"));
   assertTrue(Vba.isDate("4:35:47 PM"));
   assertTrue(Vba.isDate("October 19, 1962 4:35:47 PM"));
   assertFalse(Vba.isDate("Jan, 1952"));
 }
Beispiel #27
0
  public void testRate() {
    double nPer, pmt, PV, fv, guess, result;
    boolean type = false;
    nPer = 12 * 30;
    pmt = -877.57;
    PV = 100000;
    fv = 0;
    guess = 0.10 / 12;
    result = Vba.rate(nPer, pmt, PV, fv, type, guess);

    // compare rate to pV calculation
    double expRate = 0.0083333;
    double expPV = Vba.pV(expRate, 12 * 30, -877.57, 0, false);
    result = Vba.rate(12 * 30, -877.57, expPV, 0, false, 0.10 / 12);
    assertTrue(Math.abs(expRate - result) < 0.0000001);

    // compare rate to fV calculation
    double expFV = Vba.fV(expRate, 12, -100, 0, false);
    result = Vba.rate(12, -100, 0, expFV, false, 0.10 / 12);
    assertTrue(Math.abs(expRate - result) < 0.0000001);
  }
Beispiel #28
0
 public void testDatePart3() {
   assertEquals(5, Vba.datePart("w", SAMPLE_DATE, Calendar.SUNDAY));
   assertEquals(4, Vba.datePart("w", SAMPLE_DATE, Calendar.MONDAY));
   assertEquals(17, Vba.datePart("ww", SAMPLE_DATE, Calendar.SUNDAY));
   assertEquals(18, Vba.datePart("ww", SAMPLE_DATE, Calendar.WEDNESDAY));
   assertEquals(18, Vba.datePart("ww", SAMPLE_DATE, Calendar.THURSDAY));
   assertEquals(17, Vba.datePart("ww", SAMPLE_DATE, Calendar.FRIDAY));
 }
Beispiel #29
0
 public void testOct() {
   assertEquals("0", Vba.oct(0));
   assertEquals("1", Vba.oct(1));
   assertEquals("12", Vba.oct(10));
   assertEquals("144", Vba.oct(100));
   assertEquals("37777777777", Vba.oct(-1));
   assertEquals("37777777766", Vba.oct(-10));
   assertEquals("37777777634", Vba.oct(-100));
   try {
     Object o = Vba.oct("a");
     fail("expected error, got " + o);
   } catch (RuntimeException e) {
     assertMessage(e, "Invalid parameter.");
   }
 }
Beispiel #30
0
 public void testVal() {
   assertEquals(-1615198.0, Vba.val(" -  1615 198th Street N.E."));
   assertEquals(1615198.0, Vba.val(" 1615 198th Street N.E."));
   assertEquals(1615.198, Vba.val(" 1615 . 198th Street N.E."));
   assertEquals(1615.19, Vba.val(" 1615 . 19 . 8th Street N.E."));
   assertEquals((double) 0xffff, Vba.val("&HFFFF"));
   assertEquals(668.0, Vba.val("&O1234"));
 }